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Deze keer wil ik deze pagina maar eens gebruiken waarvoor hij eigenlijk 
is bedoeld, namelijk bestuurlijke zaken de vereniging betreff ende. Uv 
voorzitter en sekretaris maken reeds vier jaren deel uit van het bestuur 
en staan op de nominatie om af te treden. Beiden stellen zich niet her- 
kiesbaar, Co Pilmer niet vanwege zijn werk (hij is bijna nooit thuis als 
ik hem bel) en ik niet, omdat ik vind dat er genoeg potentieel onder de 
leden aanwezig is om eens een frisse wind door de vereniging heen te bla- 
zon. Je krijgt op den duur toch een soort vergrijzing, alles wordt routi- 
ne en initiatieven om eens iets spektaoulairs op touw te zetten voor de 
vereniging is er nauwelijks bij. Waar we dus behoefte aan hebben zijn 
twee kandidaten die tot het bestuur willen toetreden en die bereid zijn 
gedurende twee jaar hun schouders onder de vereniging te willen zetten. 
Wat bun taak wordt en ook die van de overige bestuursleden is een kwestie 
van persoonlijke voorkeur en verder een interne bestuursaangelegenheid. 
Naast de (hopelijk) bekende taken van voorzitter, sekretaris en penning- 
raeester, zijn er binnen het bestuur nog een aantal andere taken: Leden- 
administratie, regeling accommodatie KIM-club bi jeenkomsten, technisch 
adviseur (hardware), cassette programma bibliotheek, propaganda KIM-club, 
software adviseur, organisatie van het programma voor KIM-club bijeen- 
komsten, organisatie faciliteiten tijdens KIM-club bi jeenkomsten, en 
beheer van de KI M-club-KIM. 

Op 15 november a.s. wordt een algemene ledenvergadering gehoudem van de 
KIM-club (waarbij het gebruikelijk is dat het officigle gedeelte niet 
langer dan § a 1 uur duurt). Indien U zich n.a.v. het bovenstaande ge- 
roepeil voelt om U als adspirant bestuurslid aan te melden, kunt U dit 
schriftelijk dan wel telefonisch doen bij het sekretariaat. Mocht U 
vinden dat bepaalde zaken niet goed gedekt ,ssijir in het bestuur, schroomt 
U dan niet dat kenbaar te maken, maar meldt U t evens aan voor die lakune. 
Omdat ik ook in de redaktie van de KIM KENNER zit (en dat blijf ik voor- 
lopig nog een jaartje doen), raoet het mij ook even van het hart, dat af- 
gezien van een aantal vaste leden, het meestal de bestuursleden zijn, 
of iemand van de redaktie, die iets heeft te publiceren. Datzelfde geldt 
trouwens ook voor het houden van lezingen tijdens KIM-club bi jeenkomsten. 
Uitzonderingen daargelaten. Het is toch niet zo moeilijk! Het kost wel 
wat extra moeite om iets op papier te zetten, maar als je eenmaal bezig 
bent, vind ik, krijg je daar toch wel een kick van. Ik ontmoet wel eens 
mensen op een bijeenkomst en die hebben dan iets zodanig stomseenvoudigs 
gemaakt, dat iedereeen dat wel had kunnen bedenken. Behalve ik. En zo 
zijn er volgens mij nog veel meer. Ik ben een software man en voor mij 
zijn eenvoudige hardware schakelingen (laat staan complexe) vaak een 
openbaring. Het omgekeerde geldt evengoed. Ik denk dat 80 a 90$ van 
onze leden hardware georiSnteerd zijn en aardig wat moeite met de soft- 
ware hebben. Toch is 80 a 90$ van de artikelen in de KIM KENNERS een 
software artikel. Ergens klopt er dus iets niet iflp de verhoudingen. 
Iemand schrijft kennelijk pas een artikel als hij het zelf de moeite 
waard vindt. Verplaats je eens in iemand anders, in een beginner bij- 
voorbeeld^ zowel op hard- als op software gebied en denk je dan eens in 
hoe weinig je allemaal weet en hoe moeilijk het allemaal wel is. 

Anton Mtlller, 
sekretaris 



DE KIM KENNER 




Vfltt OE REOflKTJE 



Redactioneel voorwoord bij KIM KENNER 13 



n.j.C. Otten 



In deze KIM KENNER hebben we getracht weer allerlei 
wetenswaardigheden omtrent 6502 computers 

te verzamelen . Hopelijk zit er voor U ook wat interessants 
bij . Er zijn een aantal leden die ons regelmatig van kopij 
voor de KIM KENNER voorzien , maar er zijn ongetwijfeld nog 
meer leden die iets leuks met nun computer doen en daar 
best iets over kunnen schrijven . In KIM KENNER 10 zijn de 
voorwaarden daarvoor opgenomen , samenvattend komen ze er op 
neer dat alle bijdragen in welke vorm dan ook en op elk 
niveau welkom zijn. Schroomt U ook niet de redactieleden 
om hulp te vragen , zelf ben ik op net adres van het 
redactie secretariaat op werkdagen van 19.00 tot 20.00 uur 
meestal goed te bereiken. 

Misschien vraagt U zich af hoe de software publiceer rijp 
wordt gemaakt door ons , als U zelf niet in staat bent via 
een assembler en een printer het programma in te zenden. 
In dat geval kunt U rustig een handgeschreven programma in- 
zenden die door ons op een computer met een assembler ( Micro- 
Ade ) tot nu toe wordt ingetypt en zo mogelijk getest. Zo l n 
programma komt dan ook in de cassette bibliotheek . 
Zelf bezit ik sinds kort een Heathkit H14 printer die ik in 
kitvorm heb gekocht en me uitstekend bevalt voor zijn rela- 
tieve lage prijs. Bijna alle listings in KIM KENNER 12 zijn er 
mee geproduceerd. 

Als U een (video-) terminal bezit en nog geen assembler , dan 
kan ik U aanraden er een aan te schaffen. U zult merken dat 
U beter gedocumenteerde en begrijpelijker programma' s maakt. 
Voor de 6502 zijn er al twee goede assembler's , de oude 
vertrouwde Micro -Ade en de macro-assembler van C.Moser . 
Voor de .junior mensen is er voor de volgende KIM KENNER een 
vergelijking tussen overeenkomstige subroutines in KIM en 
junior monitor voor conversie van programma' s in de maak . 
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HEX TELLER EN REUZE FLIP FLOP 
Van de heer 

ontvingen we twee junior programma's . 
Het eerste is een hexadecimale teller op 

0000 
0002 
0004 
0007 
0009 

000 B 
000 & 
000P 
00 \ t 

00 > 5 



A9 FF 


START 


LDAIM 


$FF 


E6 F9 




INC 


INH 


20 8E 11 


LOOP 


JSR 


SCANDS 


C5 F9 




CMP 


INH 


D0 F7 




BNE 


LOOP 


E6 FA 




INC 


POINTL 


C5 FA 




CMP 


POINTL 


D0 Fl 




BNE 


LOOP 


E6 FB 




INC 


POINTH 


40 00 00 




JMP 


START 


adres 0000 


moet 


de code 


uit de 1 



H.J.C. OTTEN 



de junior display's . 

EINDWAARDE IN ACCU 
VERHOOG- RECHTER DISPLAY 
TOON DISPLAYS 
IS RECHTS FF ? 
ZONIET DOORGAAN TONEJM 
VERHOOG MIDDEN DISPLAY 
IS MIDDEN FF ? 
ZONIET DOORGAAN TONEN 
VERHOOG LINKER DISPLAY 
TERUG NAAR START 



xu ux o programma worox voortdurend de display buffer opgehoogd, 

dit zijn de adressen F9 (INH) , FA ( POINTL ) en FB ( POINTH) . 

Met de subroutine SCANDS wordt de display buffer zichtbaar gemaakt. 

Op adres 0009 wordt gekeken of het linker display al volgeteld is, 

door met de eindwaarde in de accumulator $FF te vergelijken . is 

dit zo dan is er een overloop ( vergelijk met onthouden bij gewoon 

optellen ) en wordt het midden display verhoogd. Daarna wordt 

m adres 000u gekeken of misschien het midden display overloopt 

cn m dat geval wordt otfk het linker display verhoogd. 

is m beide gevallen geen overloop dan wordt teruggesprongen 

naar de LOOP en het laagste display weer opgehoogd? Spr ° ngen 

dnt I 5 ! ^ S da L We ° P x. de 5unior dis Plays een getal zien staan 

KeLlsteJsef n %^^t opgehoogd.J)e teller telt in het hexadecimale 

gexaistelsel . Start het programma op 0000 . 

Het tweede programma is een reuze flip flop . 



0000 
PPP2 

mps 

pjopo 

0015 



E6 50 
20 8E 
C5 50 
D0 F7 
C5 F9 
D0 OF 
A9 FF 
85 F9 
A9 0F 

A9 00' 



ID 



START 



INC TELLER 
JSR SCANDS 
CMP TELLER 
BNE START 
CMP INH 
BNE OMZET 
LDAIM $FF 
STA INH 
LDAIM $0F 
STA POINTL 
LDAIM $00 



Verhoog teller 
toon display's en toets? 
gelijk aan teller ? 
nee wachten 

toets gelijk rechter display 
nee dan omzetten 
zet display buffer 
op 000FFF 

door in display buffer 
deze waarden te zetten 
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mis 

00 IE 
0021 
0023 
0025 
0027 
0029 



A9 00 
85 F9 
A9 F0 
85 FA 
A9 FF 
85 FB 



40 00 00 



85 FB 
40 00 00 



ZETOM LDAIM $00 
STA INH 
LDAIM $F0 



STA POINTH 
JMP START 



STA POINTH 
JMP START 



STA POINTL 
LDAIM $FF 



TERUG naar start 
zet diplay buffer 
op FFF000 

door in display buffer 
deze waarden te zetten 



terug naar start 



Het programma kan op 000C of op 0019 worden gestart . 

Door op een toets te drukken ( willekeurig ) springt de 

"flip flop" om , op het display verschijnt dan FFF000 . Na enige 

tijd springt de flip flop weer terug , tot weer een toets 

wordt ingedrukt . Terug is 000FFF op hit display . 

Het programma verhoogt aldoor locatie TELLER en toont daarna de 

display buffer via de subroutine SCANDS . De subroutine SCANDS 

doet meer <Mr» de display buffer tonen , ook wordt gekeken of er 

een toets ingedrukt is . Een toets ingedrukt betekent een 

accumulator ongelijk nul. Door de accumulator na SCANDS met 

TELLER te vergelijken wordt alleen bij toetsindruk en de tellerstand 

gelijk aan de accu de flip flop omgezet . Daarna wordt gekeken 

of de flip flop gezet of niet gezet was , waarna de flip flop 
respectievelijk gezet of terug gezet wordt. 

Het verhogen van teller heeft als gevolg dat een traagheid wordt 
ingebouwd in het terug zetten 

KIM gebruikers kunnen deze programma 's ook draaien als de 
subroutine oproep SCANDS wordt vervangen door 4C IF IF . 

Beide programma' s zijn niet zo ingewikkeld en geschikt om het 

werken met de 6502 te leren . Probeer bijvoorbeeld eens het volgende: 

1. Laat de hexadecimale teller omlaag tellen . 

2. Probeer de teller naar een decimale teller om te bouwen. 

3 . Laat de flip .flop uit zichzelf omslaan met een via de software 

te regelen ritme 

4. Laat de flip flop iets'anders tonen .(bijvoorbeeld FFFFFF of 



Het is leerzaam om de programma' s te doorgronden , zodat U zelf 
ze kan aanpassen en later zelf ingewikkelder programma! s kan 
ontwikkelen of ,wat vaak zal voorkomen, aanpassen. 



000000 ) 
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W.L. van Pelt 

Jacob Jordaenstr. 15 

2923 CK KRIMPEN AD YSSEL 



Een paar maanden geleden verscheen in Elektuur een artikel over de JC. 
Hoewel ik geen enkele ervaring heb met computers, bruist het enthousiasme. 
Deel 1 van het boek was snel binnen en Music Print leverde de kit 00k 
spoedig. Bij de t> ouw deden zich vrijwel geen problemen voor. De displays 
waren weliswaar anders, en 00k de toetsen, alsmede Step- en Display- 
schakelaars, maar een telefoont je naar de leverancier was voldoende 
om hier duideli jkheid over te krijgen. Zodra de kit in elkaar zat, met 
voeding voorlopig ondergebracht in een houten omhulsel van wat voordien 
een draagbars draaitafel met luidspreker was, de 220 erop, die via de 
00k in de kast ondergebracht e voeding de computer in werking moest zetten. 
Het boek erbij en oefenen maar. De computer deed het zoals in Elektuur 
voorspeld: een volslagen leek kan 'm aan de praat krijgen. Nou ja, aan 
de praat. Hij kon datgene doen wat in het boek aan programmaat jes was 
aangeboden. En dat is voor leken als ik toch wat mager. Het gevolg is 
dat je erg verlangend op deel 2 zit te wachten. Ook al heb je nog zo 
vlijtig alle vingeroef eningen herhaald, in feite wil je eerst een rede- 
lijk aantal programmaat jes en/of spelletjes doen. lets waar kinderen al 
direkt naar uitzien. Daarna ga je natuurlijk proberen of je zelf ook 
iets kunt programmeren. 

Dat brengt mij trouwens op hoofdstuk 3 van het eerste deel. De titel 
doet vermoeden dat je de grondbeginselen van het programmeren in kort 
bestek krijgt aangeboden. Dat blijkt echter tegen te vallen. Hbewel het 
hoofdstuk zelf niet gemist kan worden, versta ik onder programmeren iets 
dat meer omvattend is. Uiteindelijk heb ik 66k wel begrepen dat de 
schrijver(s) niet de bedoeling voor ogen hadden een kursus programmeren 
op te nemen. Maar het op een rij zetten van de diverse addressing modes 
geeft mij niet bepaald het gevoel .nu zelf een probleem te kunnen uitwer- 
ken. Als de JC bedoeld is voor een zeer groot publiek, dan ware het be- 
ter geweest als aan dit aspekt enige aandacht was geschonken. 
Als ik een overzicht zoek van de monitor-subroutines, dan zoek ik wel 
tevergeefs. Tenzij er niet meer in zit dan SCANDS op $1D8E en OETKEY op 
S10P9, de monitor-offset-routine BRANCH! op $1PD5 en de save- subroutine 
op $1000. Hoe dan ook, overzichteli jk is het niet. 

Inmiddels is mij wel duidelijk geworden dat JC en KIM bijna geheel op 
elkaar lijken, wat het onzichtbare deel betreft. In KIM KENNER 2 staat 
het spelletje One Armed Bandit (f ruitmachine) . Hierin zijn door Anton 
Mtlller voor mij een paar wijzigingen aangebracht, zodat het ook op mijn 
JUNIOR werkt. De kinderen hebben zich er, net als ik, best mee geamuseerd. 
Oelukkig is deel 2 nu uit. De JC kan weer uit de kast gehaald worden. 
Maar 6en opmerking moet mij nog van het hart. Elektuur heeft nu gezorgd 
dat de JC een geheugen uitbreiding kan krijgen. Zonder RAM en EPROM kost 
het f. 178,- bij Music Print (die overigens wel adverteert dat nog gratis 
programmaat jes worden nagezonden, doch dit tot op heden niet waar heeft 
geraaakt, althans in mijn geval). Met RAMs en EPROMs wel een lieve duit. 
Waarom niet iets gedaan aan bijv. het opslaan van programma' s. Ik heb 
tenminste geen flauw idee hoe dat moet. En iedere keer - als de stekker 
uit het stopkontakt is geweest - alles weer intoetsen is onplezierig, 
zo niet weinig stimulerend. Het zou prettig zijn te vernemen dat een ge- 
woon (stereo of mono) tape-deck ook kan worden gebruikt en hoe dat dan 
moet. 

Al met al, een enthousiaste leek. Ik Nog wel. 

W.L. van Pelt 
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AMUSEMENT 



QOlOs 
0020 i 
0030 ; 
0040; 
0050; 
'■)'■} 60 1 
00 / 0 ;• 
0080; 
0090 1 
0 :.00i 

otto* 

0120 • 
0130 s 
0 140; 
0150* 
0160 s 
017 Ot 
O1.80; 
0X90 1 
o:„'00; 
02.1 Ot 
0220; 
0230; 
0240 ; 
0250 - 
0260$ 
02? Ot 
0260; 
02^Oi 
0300 ; 
0310; 
0320 i 

0330: 

0340; 

0350: 

0340s 
037 0 * 
03@0s 
0390 1 
y#OOs 

0410; 

0-*20 J 
0-3 30; 
0440; 
04 5o t 
0460* 
0470 s 
04 80; 
0490; 
0500 s 
0510; 



0200 
0200 
0200 
0200 
02O0 
0200 
02O0 
0200 
0200 
0200 



0200 
0203 
0206 
0208 
0208 
020Ii 
0210 
0212 
0214 
0216 
02 j 8 
021 A 
021 C 
021 F 
0220 
0222 
0224 
0226 
0228 
022A 
022C 
022E 
0230 



'PAL EM STUD IE HULF PROGRAMMA 

TYPE HET WOORD WAAR U DE VERTALING VAN WILT. 
TYPE NU EEN " = " EN HET PRQGRAMMA ZQEKT IN ZIJN 
GEHEUGEN NAAR DE VERTAL ING t 
ALS DEZE NIET AANWE2IG IS ANTWOORDT HET 



PROGRAMMA MET 



PROGRAMMEUR G. VERKOQY* 



U KUNT NU 2ELF DE VERTAL ING INTYPEN GEVQLGD DOOR 
HET APENSTAART JE . 

WENST U BIT NIET TYPE DAN (EN OELfif^KRACTER . ! 7 f ') 

WILT U EEN GEGEVEN VERWIJDEREN RUEPT U HET OP 
GEVOLGD DOOR CONTROL C 
START AORES 200 



TAALST ORG 
WIJZER * 
SAVEY * 
BUFFER # 
S f ART * 
E I NlJ * 
I NIT * 
GETCH # 
RRTCMT * 
LF * 



20 8C IE 
20 2F IE 
A'? 40 
8D FF 4F 
A2 00 

20 5 A IE NEXT IN JSR 



JSR 
JSR 
LDAIM 
STA 
LDXIM 



C9 7F 
FO EC 
C9 03 
FO 56 
C9 08 
FO 49 
9D 00 01 
E8 

C9 3D 
DO L9 
A9 ff 
85 10 
A9 IF 
85 11 
AO 00 
E6 10 
DO 02 



CMP I M 



BSIN 



ZOEK 
LAADWY 



CMPIM 

BEG. 

CMPIM 

BEG 

STAAX 

INX 

CMPIM 

BNE 

LDAIM 

STA 2 

LDAIM 

STA2 

LDYIM 

INC 2 

BNE 



$0200 
$0010 
$0012 
$0100 
flFFf 
$5000 
$1E8C 
$1E5A 
$1EA0 
$1E2F 



INIT 
LF 
$40 
EIND 

$00 

GETCH 

$/F 

TAALST 

$03 

J CLEAR 

$08 

BS 

BUFFER 
$3D 

NEXTIN 

START 

WIJ2ER 

START 

WIJZER 

$00 

WIJZER 
SKIP 



TALEN STUD IE HULP PROGR, 

ADRES VDOR INDIRECTE GEHEUGEN AANW 

KLAD ADRES VOGR Y REG. 

EERSTE ADRES TEKST BUFFER 

A AN V ANG ADRES DATA -1 

LAATSTE ADRES DATA +1 

KIM INITIAL I SERINGS SUBROUTINE 

KIM KRAKTER LEES SUBROUTINE 

KIM KRAKTER PRINT SUBROUTINE 

KIM RETURN -LINE FEED SUBROUTINE 



KIM SUBROUTINE 
KIM SUBROUTINE 

-01 

PRESET X VOGR 

HET INLEZEN EN VULLEN BUFFER 
ALS DELAY KRAKTER 
BEGIN OPNIEUW 



STORE IN BUFFER 

PRESET VOOR VOLGE.MDE KRAKTER 



/256 
+01 
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AMUSEMENT 



TAAL3" 


c 


ROGRArlMEUR 


G. VERKPQY. 


-1.0 PAGE 


0520 i 


0232 


E6 


11 






INEZ 


WIJZER 


+01 


0530 


0234 


A 9 


50 




SKIP 


LDAIM 


EIND 


/25t 


!..):■• 40 i 


0236 


C5 


11 






CMPZ 


WIJZER 


+01 


(jF- . > < 


0238 


F0 


3 7 






BEG 


NIETGV 




0560 i 


023A 


Bi 


10 






LDAIY 


WIJZER 






023C 


i~- <- > 
U-7 








CMF-' I M 


$40 






a' /*a p 


L'U 


Eh. 






BNE 


LAADWY 




r 1 K Of) « 


0240 


L o 






NXT WKD 


T k 1 w 

I NY 






060 (J i 




Bl 


1U 






LDAIY 


WIJZER 




OA 1 O « 


j_ "T- O 


DV 


r t 


00 




CMPAY 


BUFF ER 


-01 






ou 


£4 






BNE 


Z0EK 




OA 30 } 


4 A 

..■ -v- r O 


r-O 


di.l 






r~\ uj r-, T u,i 

CMFMM 


$3D 




06*0 r 




r U 


O ji 






SEQ 


GEVGND 




t j *, 5 Q ; 


024 C 


IJU 








BNfc 


NXTWRD 




•.■ —i O v ■ 


fly,-: p 


IT iL 
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GtVOND 


3 NCZ 


SAVEY 




■ ! i, 7 (") • 


5 j s a 


Co 








I NY 
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A-'.".. 1 


hi 


1 0 
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LDAIY 
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f •. i, (3 A • 

».#«7| .■ v/ » 


AO«VS! 


V V 


t" r 

F F 


00 




STAAY 


BUFFER 


-01 




A'.?'", 4, 


■ "*ry 

\. r i 


4 U 






CMP I ri 


$ 4 0 






Ji. v* C? 


t 0 


UF 






BEti 


INCSY 




6.7120 - 


A ' ? ' , .} 

~ ■-■ M 


84 








STY 


SAVEY 






a 2 5 n 


20 


AO 


IE 




JSR 


PRTCHT 




' / ~ V* " 


02 


A -1 


1 2 






LDY 


SAVEY 




0 / SO S 


0*?A 1 


Lo 








INY 






0? AO' 


A 


4U 


.1 


92 




JMP 


HhKVUL 




I 1 / ? A » 




t^A 






Bb 


DEX 






f l7u,i' . 
• .• l_' • -• ■ 


v 


4C 


'"It/". 


02 




JMP 


BSIN 




f ! .' CJA » 
• • .- » 
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■ ■ O 7 


.... . 
Lo 
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I NLbY 


I NCZ 


SAVEY 




0flO< 1 ■■ 
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98 


02 




JMP 


SCHEEN 




( ) i (") ; 


A^A It" 


4C 


C6 


02 


JCEEAFv' 


JMP 


CLEAR 
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A 

A-? 


3F 




NI ETGV 


LDAIM 


$3F 
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20 


AO 


IE 




JSR 
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IE 
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■JSR 


GETCH 
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C9 


?F 
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*7F 




OCT v -■ 
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F 


83 






BEG 


TAALST 




Aj.' 7 A » 


/ JL' 




00 
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b 1 AAX 
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V")' .' M A 


L9 
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UMPIM 


*40 
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DO 
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BNE 


N0END 




0900 1 


(") w 4. 


4C 


8S 
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JMP 


STORE 




{•J V 1 A 4 
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E8 






IMDEND 


INX 
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■JMP 


INVGER 




0930 ; 


028B 


E8 
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02MC 


86 
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srx 
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028E. 


A 9 
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LDAIM 


EIND 
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O290 
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OV70i 
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E5 
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85 
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A9 
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85 
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1020 s 


02 VP 


A2 
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BS 0265 

CLL'J'j- 02C8 

HER VOL 0251 

J CLEAR 026E 

NIETGV 0271 

NKfWK'D 0240 

SCRSCH 02DB 

3""0RE 028B 

Z0EK 022C 



BSIN 0220 
EIND S0O0 
INC&Y 0269 
LAADWY 022E 
N0DEC; 02AD 
-RTCHT 1EA0 
SCHUIF 029D 
TAALST 0200 



BUFFER 0100 CLEAR 02C6 

G'ETCH 1E5A GEVOND 024E 

INIT 1E8C INOOER 0276 

Lf 1E2F NEXT IN 020D 

NOEND 0287 NO INC 02E9 

3AVEY 0012 SCHEEN 029B 

SKIP 0234 START IF FT 

VUL 02B5 WIJZER 0010 
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0910: 

0028: 

0030: 

8040: 

8850: 

0868: 

8070: 

0088: 

0098: 

8 1 08 : 

0110: 

8120: 

0130: 

0140: 

8158: 

0160: 

8 1 70 : 

81 88: 

8190: 

0288: 

8218: 

0229: 

0230: 

8248: 

0258: 

0260: 

02?"9: 

8288: 

8298: 

8388: 

8318: 

8328: 

8338: 

8340: 

0350: 

0360: 

0378: 

0388: 

8398: 

8480: 

8418: 

8428: 

8430: 

0440; 

0460: 
0470: 
0480: 
0498: 
8500: 



PRINTER OUTPUT ROUTINE 
H.J.C. OTTEN JUNI 1930 



DEZE SUBROUTINE UERZENDT EEH KRRRKTER IN fl 
OUER EEN PIfl BIT 

DOOR DE KEU2E URN MflSKO EH MASK I RAN ELK PIfl BIT 
WOROEN GEKOZEN 

DOOR flflNPfiSSING UflN OUT ELKE PIfl 

DE KEUZE UflN DE BRUDRflTE IS DOOR DE WHRRDEN URN A 
EN y URST TE LEGGEN 

ER 2IJN TWEE DELflVROUTINES GEQEUEN 

DE EERSTE UOOR BRUDRRTES LflGER DRN 1200 BRUO 

DE TUIEEDE UOOR HOGERE 

BRUDRflTE TRBEL : 



BAUD 


fl 


1 t 

r 


"JP cr 
i 






189 


18 


110 


j~:> 

Q kj 


0fi 


150 




0R 


388 


9C 


03 


688 


D8 


81 


1288 


71 


81 


2400 




4C 


4888 




23 


9688 




14 



8288 

8238 
8288 



ALS EEN WflflRDE IS GEGEUEN IS DE TWEEDE DELAV ROUTINE 

NOD I G 

IN DIT PROGRAMMA IS ALS DEFAULTUAARDE PB8 UflN DE KIM 

FiLS OUTPUT GEKOZEN 

EEN BAUDRATE URN 118 BAUD 

UOOR RNDERE PIRBITS OF RNDERE PIfl ADRES^EN 

OF RNDERE BRUDRRTES 

MOET OUT, T I, T 1 1, MASK I, 

MflSKO WORDEN RRNGEPflST 

EN EEN UflN DE TUEE DELflV 

ROUTINES GEKOZEN 

PRINTR ORG $0288 
GEBRU I KTE URR I ABELEN : 
CHRR * *O0FE 
TEMP $Q0FD 
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9536s 
0540 s 
8550 s 
0560 s 
0570 s 
0580: 
0590 s 

0600S 
0610S 

G620 : 
6630 s 
0640 s 
kj o 3 y « 
0660s 
0670 s 
0680 s 
0690 s 

07905 
0710S 

0720 s 
0730 s 
9740 s 
0730 s 
0760 s 
0779 s 
0780s 
9790s 
0880 s 
0818s 
0828 s 
0838 s 
yo4-£i s 

03505 
0*13 £>0 S 

6870s 
oLi s 
0890: 
9980s 

0810S 

0920 s 

09305 

yy4-u s 
8950: 
8960 s 
097£is 
0988 s 
899015 

10805 



0200 
0200 



TMPX 
OUT 



$80FC 
$1702 



PRINTER SUBROUTINE 
X,fl7V BEHOUDEN 



9280 


48 






8UTPR 


PHfl 




BEWAAR KflRFIKTEP 


9281 




FD 






STV 


TEMP 


EM V 


8283 


S 6 


FC 






STX 


TMPX 


EN X 


0285 


r— i r.r 
Q •_ 1 


FE 






STfl 


CHAR 


BEWflfiR KAPfikTFP 


0287 


AD 




17 




LDA 


OUT 


828H 


09 


01 






BRfilM 


$81 




y20fj 


8D 


02 


17 




STfl 


OUT 




828F 




3E 


02 




JSR 


DELflV 


WflCHT 


8212 


fi-i 


03 






L&xm 


$08 


8 BITS TE UERSTUREN 


8214 


FiD 


92 


17 


NEXTB 


LDFI 


OUT 


8217 


46 


FE 






LSR 


OHflR 


LSB 0HflR IN CflRRV 


0219 


B0 


04 






BBS 


ONE 


IS HET EEN 1 ? 


82 IB 


09 


01 






GRfllM 


$81 


MASK I UIT = 1 BIT = @ 


02 ID 


90 








BCC 


BOUT 


flLTIJD GENOMEN ! ! ! 


02 IF 




FE 




ONE 


flHDIM 


$FE 


MASKO UIT - 8, BIT ■ i 


0221 


Q r-, 
O L-' 




17 


BOUT 


STfl 


OUT 


8224 


/ yl 


3E 


02 




JSR 


DELflV 




8227 


Cfl 








DEX 




UGLGENDE BIT 




D0 


Efi 








NEXTB 




822A 


flD 


©2 


i 1 




LDfl 


OUT 




822D 


2.'~f 


FE 






flHDIM 


$FE 


MASKO STOPBIT 


822F 


3D 


02 


17 




STfl 


OUT 




8232 


28 


3E 


02 




JSR 


DELflV 




8235 


20 


3E 


02 




JSR 


DELflV 


TWEEDE STOPBIT 


0238 


R6 


r L- 






LDX 


TMPX 






ri*r 


FD 






LDV 


TEMP 




©23C 


68 








PLfl 






02 3D 


60 








RTS 







SUBROUTINE DELflV 118 BAUD TOT 



023E A8 8fl 
0240 A9 88 

8242 38 

8243 E9 01 
0245 D0 FB 
0247 Efl 
8248 88 
0249 DO F5 
024B 60 



BUITENLOOP 
BINMENLGOP 



DELflV LDVIM $8A 
ULOGP LDfl I M $88 
I LOOP SEG 

SBGIM $01 

BNE ILOOP BINNENLOOP fl+7-1 US 

HOP TIJDUULLER 

DEV 

BNE OLOOP 
RTS 

DELflVROUTINE 2480 TOT 9608 BAUD 
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HG88 KIM1 ASSEMBLER 6582-1.1 PAGE 83 



1910S 

1920." 

1 830: 
1040; 
1850: 
1060: 
1078: 
1038: 
1800;; 
1108: 
1110: 
1 128: 
1 130: 
1148: 

■f ■( r:r- t-j „ 

1 160: 

1176; 

X X C« fe3 " 

11 90s 
1208: 
1210! 
1220:: 
1230: 
1248: 

1 268 : 

1280s 
1290: 
13G8 ;; 
1318 a 

■I "T [~| it 

X ■-■ x_ U ■ 

1330: 
1340: 
1330: 

1370: 



0248 A3 80 
824 E 83 
D8 
68 



TDELEV LDVIM *88 
DL88P DEV CMOOR 

BHE DL88P 

RTS 

EEH UOORBEELD URN NET GEBF 
URN DEZE PR I NTERROUT I NE 
BIJ MICRO RDE 



TIJD * V+5+i 



BAUD V> 



INITIflLISflTIE ! 
8252 AD 83 17 IN IT LDfl OUT 



8255 83 81 
8257 R9 66 
8253 SD Rl 2E 
325C f!3 82 
325E AO OD 
0268 3D 44 28 
8263 40 31 28 



8266 28 08 82 
8263 20 A8 IE 
8260 68 



8RAIM $81 
LDAIM PRGUT 



STA 
LDAIF 



*2Efll 
PR8UT 



LDAIM *8D 



STA 
JMP 



$2844 
*2031 



+81 PB@=OUTPUT 
MASK I 

MICROADE KARAKTER OUTROUTIME 

UERUANGEN 
INITIflLISflTIE MI GRADE 
AANPASSEN 

UARNE START MICROADE 



SUBROUTINE DIE KARAKTER MAAR 

PR I NTERU I TGAHG EM GEWONE UITGAMG KIM STUURT 
PROUT JSR OUTPR MAAR PRINTER 

JSR £1EA8 KIM OUTPUT ROUTINE 



SUBROUTINE DIE PRINTROUT INE UITZET 



026D 



0274 
8277 



A3 
3D 
A3 
3D 
4C 



Al 
IE 

A2 
31 



2E 

2E 

20 



LDAIM $A8 
STA *2Efll 
LDAIM *1E 
STA *2EA2 
JMP $2031 
FORMULE OM DELA't'ROUT I NET I JD 
TE BEREKENEN 

1 7^ !™i 1 — ' ~^ 

FORMULE UOOR TDELflV 
<fl*3 +1) - 33 



KIM OUTPUT ROUT INE 
WEER AAN MICROADE 
HANGEN 

WflRME START MICROADE 




KS232 vv«rf*ce 
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_ D.J.Dral 

CASSETTE INTERFACE SS'irsS*^ 

ben van de meest besnroken nroblemen rond de klfti is toch wel het cassette 
probleem. Als ie o P zo'n KIM bijeenkomst hoort, wat anderen voor proble - 
men hebben met de recorder, dan Rlinken die problemen bekend in de oren: 
*isrelende voedingssnanning, slechte verbindingssnoeren e.d. 
Toen ik eenmaal had^besloten deze problemen vanrwel te zeggen en de recor 
der met de Klk in een kast te bouwen, heb ik een cassette recorder aange- 
schaft van Radio Service Twente voor de prijs van slechts j 32, SO. 
Voor de verbinding tussen recorder en KIM heb ik een schakeling ontworpen 
welke aan de volgende eisen moest voldoen. 

1. duidelijke indicatie dat de data van en naar de KIM gaat. 

2. een redelijk goede eindversterker . 

3. automatische stop na opname en weergave, ook als de data niet goed ove 
komt op de KIM (display licht niet op) 

Over dit laatst punt is al meerdere malen gesproken en gescnreven doch ik 
wilde geen van de poo-rten gebruiken, geen software toepassen, gewoon een 
vaste schakeling die altijd werkt. 

Punt 1, de indicatie, was geen probleem. In Kim kenner 3 heeft een scha- 
keling gestaan van Willem v. Gelderen, die al jaren uitstekend voldoet, 
dus waarom zou je dat niet overnemen. Bovendien kon ik het PLL signaal 
wel gebruiken voor de automatische ston van de cassette recorder. 
Het PLL signaal wordt op de print toegevoerd op punt D wan ma het via Rl, 
Dl en D2 naar de meter gaat. De waarde van Rl is afhankelijk van de toe- 
gepaste meter en moet dan ook expirimenteel worden vastgesteld. . 
Het PLi, signaal gaat tevens via weerstand R2 naar transistor Tl. De con- 
densator Cl is positief geladen via weerstand R3. Als de cassette recor- 
der wordt gestart komt er een positieve spanning op punt 6; de uitgang 
van poort 3 wordt dan negatief, deze is verbonden met poort 1 welke op 
zijn beurt positief wordt en het reedrelais bekrachtigd zodat de motor 
van de recorder gaat draaien. Indien nu een PLL signaal van of naar de 

3 en 2 
wordt dan po- 
geladen en er 

ontstaat een nositieve spanning. op beide ingangen van poort 1 zodat de 
motor van de recorder wordt uitgeschakeld. Door nu de stopknop op de re- 
corder in te drukken wordt de hele schakeling gereset. (punt 6 wordt ne- 

Het PLL signaal en de poorten wilde ik gescheiden maken ten onzichte van 
de recorder, vandaar dat er een reedrelais is toee^pli • T ? P ! 
van ik op dat moment een grote parti; in mi jn bSfThfi. Voor de^naboT" 
wers kan ik dit relais tegen een speciale prijs aanbieden (zL eldJrs In 

HI ?r^ks^rb^v1orbeeld e . Ze A ™ "^o"^ lit 
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De versterker is ongebouwd rond IC 2: PI dient voor het opname niveau en 
P2 is de volume regeling van de versterker. 

Van het geheel is een print ontworpen zie fig 2, welke eventueel tegen 
kostprijs bij mij te koop is. Fig. 3 toont de opstelling van de componen- 
ten en in fig. 4 tenslotte is het bedradingsschema weergegeven. De punten 
1 t/ffl 15 corresponderen met de punten op de Twente recorder, men kan van- 
zelfsprekend ook een andere recorder toepassen. In fig 4b is een stukje 
van het schakel- en voedingsgedeelte van de recorder weergegeven. 
De instelling van PI en P2 zet men in het midden bij ingebruik neming. 
PI kan men als volgt instellen: Maak een opname van een programma en ver- 
gelijk de grootte van het uitgangssignaal met een "gekochte" tape, bijvoor- 
beeld Micro ADE met behulp van een scoop. Kegel PI daarna zo af, dat bei- 
de signalen even groot zijn. 

In de tijd, dat ik deze schakeling gebruik, zo'n vier maanden, heb ik hon- 
derde keren programma' s opgenomen en weergegeven, zonder dat er ook maar 
iets fout ging; Bijna alle programma' s zijn opgenomen met behulp van Hyper- 
tape. 
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com o onenten z iide 



, aut. stop 



I 



15 « 



JUJkJ 



r 
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i 

i cassette 




rec 



80 



vcc 



recorder 
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Net als de heer Dral gebruik ik de Twenthe cassette recorders 
van f 32,50 en wel twee stuks . Ze werken prima na wat extra 
versterking te hebben toegevoegd .(zie Radio Bulletin maart 1980 ) . 
De voeding kan problemen opleveren door de motorstoring op de 
voedingslijnen. De KIM kan beter niet met dezelfde voeding als de 
cassetterecorder worden verbonden , of moet apart worden gestabili- 
seerd. Ook de toegevoegde versterker elektronica en andere elektronica 
zoals de schakeling van de heer Dral kan beter door een afvlakf ilt er 
worden gevoerd. Een geschikte voeding is hieronder getekend. 
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DE CBM » 2001 "PROFESS ION AL_CQMPUTER^ 




Een van de meest populaire en eerste computer die op de markt kuam 
uas de PET-2001 van CBM. Ik bedoel dan natuurlijk die systemen 
die geheel compleet uaren en echt de naam COMPUTER verdienden. Reeds 
veel eerder uaren systemen zoals de ,hoe kan het anders,ons aller 
Kin tegen een redelijke prijs verkri jgbaar . Nu mogen KIM-bezitters 
met hun HEX-toetsenbord je en aes- cijfer diplay best "stinkend ja- 
lours"zijn op de PET-bezitters , het omgekeerde is even uaarl Met een 
systeem als de KIM koop je aanvankelijk een stukje speelgoed . Dan 
ga je steeds meer mogeli jkheden ontdekken,je gaat zelf het systeem 
aanvullen en tenslotte is het resultaat een voluaardig systeem dat 
helemaal naar je eigen ideeen en uensen is ontstaan. Uie een PET 
gekocht heeft komt al snel tot de ontdekking dat de fabrikant al 
bepaald heeft uat goed voor je isi Vooral als men de uel zeer ge- 
brekkige documentatie die uordt meegeleverd er bij optelt. Uie een 
PET heeft aangeschaft om in BASIC te uerken en te blijven uerken 
heeft nog het minste problemen maar uie, zoals ik , electronica hobby- 
ist is en iets uil doen op het gebied van (groot uoord) proces- 
besturing ziet zich aanvankelijk in zijn mogeli jkheden beperkt. 

In het navolgende uil ik proberen CBM ( PET)-bezitters aan ideen te 
helpen die heel uat beperkingen doorbreken. Ik mag aannemen dat 
KIM-bezitters en bezitters van andere soortgelijke systemen er ook 
uel iets mee zullen kunnen doen,gezien de ervaring die zij bij het 
langzaam opbouuen van hun eigen systeem hebben opgedaan. De PET 
is immers op dezelfde 6502 microprocessor gebaseerd als de KIM! 

Nu is het niet de bedoeling een complete beschrijving van de PET 
te geven. Een goede , uitgebreide test is in Radio-Bulletin verschenen 
in het april-nummer van 1979. Uel ga ik U uat informatie geven 
over mijn "grotere broer" van de PET de CBM-2001 , zodat U minder 
problemen zult hebben om eventuele softuare om te zetten naar de 
eisen van andere 6502 systemen. 

De CBM^OOl is een verbeterde PET en uordt geen "personal-computer 11 
meer genoemd maar "Professional computer". CBM goocheld daarbij met 
namen en typenummers dat het een lieve lust is: De zelfde computer 
uordt soms onder verschillende namen geleverd] De 2001 is eigenlijk 
een lid van de 3000-serie maar heeft slechts , evenals de PET een 8K 
RAMjUaarvan dan ook ueer IK niet ter beschikking van de gebruiker 
staat. De 9 cijferige rekennauukeurigheid in aanmerking genomen is 
de BASIC-interpret opmerkelijk snel. Dat is natuurlijk leuk maar 
die snelheid is bereikt door, minder leuk voor de gebruiker, de ge- 
hele zero-page voor het operatingsystem op te eisen. Daarmee is de 
machinetaalgebruiker het gebruik van de indirect-indexed instructies 
vrijuel ontzegd. De grote verschillen met de PET maken de CBM-2001 
zijn prijs echt uaard. Laten ue beginnen met het nadelig verschil: 
De ingebouude cassetterecorder ontbreekti Deze moet los bijgekocht 
uorden. Dat ontbreken is logisch als U ueet uaarvoor hij moest ver- 
duijnenrEen echt prof essioneel keyboard. De mogeli jkheden zijn 
verder dezelfde als die van het PET toetsenbord je . Een minpunt is 
dat een snelle typist nu toch typefouten krijgt door het ontbreken 
van een schakelmoment op de toetsen. Door contactdender onstaat nu 
nogal eens kleine ergernis. Echt afbreuk doet het echter nieti 
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Een extra toets is de "shift-lock". Een hinderlijk ding als je hem 
gebruikt hebt en vergeten bent te "lossen". Onderbreken van een 
machinetaalprogramma is evenals dat bij de PET het geval was nog- 
steeds onmogelijk. Uas het ontbreken van een NMI-stoptoets op de 
PET nog uel te billi jken,hier vind ik dat onbreken ronduit ergerlijk 
als je nagaat dat: 

1. Een NMI-programma in het ROM aanuezig is,zij het dat ook dat 
niet vrij van kritiek is. 

2. NriI een aansluiting (pen 24) van de geheugenuitbreidingspoort 
is . 

3. De NMI-vector naar een door de gebruiker te uijzigen RAM- 
vector uijst,zodat deze zijn eigen interrupt programma kan 
schri jven . 

Een en ander komt er dus op neer,dat op een toch voortref f eli jk pro- 
duct een drukknopje van een paar gulden is bezuinigdl Natuurlijk 
is dat toetsje uel gemakkelijk zelf aan te brengen,voor uie in 
machinetaal uil uerken noodzakeli jk I 

Uat het . interrupt-programma dat ik zojuist noemde betreft, 

dat uijst via een RAM-vector op $0094 naar $C389 en dat is de uarme 
start van BASIC. Nu heeft een NMI-stopprogramma natuurlijk geen 
enkele zin als het met een RTI-instructie eindigt,maar het zal de 
6502 een zorg zijn uaar6m hij een NMI ontvangt : Uat bij een interrupt 
in de stack behoort te gaan .uordt er dus ingeschoven. De fout van het 
NMI-interruptprogramma is nu dat de interrupt-data niet uit de stack 
uordt gehaald , zodat deze interrupt na herhaald gebruik een Pout- 
melding veroorzaakt: ?0UT OF MEMORY ERROR 
Meer dan een schoonheidsf out je is dat echter niet. 
Een ander pluspunt tegenover de PET is de aanuezigheid van een 
machinetaalmonitor in ROM. Het van cassette halen van TIM uaarbij 
een deel van het RAM in gebruik is is dus niet meer nodigj In 
dezelfde geheugenruimte had met gemak echter ook een echte ASSAMBIER 
-DISA55AMBLER PLAATS KUNNEN HEBBEN. Voordeel voor de niet bezitters 
van een printer is echter dat de aanuezige monitor 192 bytes tegelijk 
op het beeldscherm laat zien en na enige geuenning is dat een erg 
groot voordeel. 

De BASIC-interpreter heeft een paar eigenaardigheden . Het navolgende 
spreekt voor zich: (DIRECT MODE) 

0PEN1, 1,1 

PRESS PLAY & RECORD ON TAPE 1 
OK 

READY. 
0PEN1,1,1 

?FILE OPEN ERROR 

READY. (ach ja uat stom van me, ue gaan dus verder) 

PRINTJill , "FILE" 

?FILE NOT OPEN ERROR 
READY. 

Naast de foutmelding uerd dus ook de file gesloten en dat kan erg 
hinderlijk zijn. 

De documentatie moet afzonderlijk uorden gekocht en bestaat uit 
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het dikke USER MANUAL dat in de test van de PET in Radiobulletin 
met de nodige lof uerd genoemd. Voor de CBM "professional" serie, 
die nogal uat verschillen met de PET vertoont in het operating- 
system, heeft COMMODORE dat PET USER MANUAL omgedoopt tot CBM USER 
MANUAL en getracht het aan te passen aan de nieuue producten. 
Ik schrijf expres een beetje sarcastisch "getracht" want het boek 
bulkt nu van de hinderlijke f outen , doordat dat aanpassen hier endaar 
vergeten is. Met name het hoofdstuk over het gebruik van machine- 
taal is een echte puzzel. Samen met het,eveneens bulkend van de 
fouten,ETI "Grote PET boek" is er uel uit te komen. Om de CBM he- 
lemaal te doorgronden zijn deze boeken beide een belangrijk bezit. 
Ook het "PROGRAMMING MANUAL" van MOS is een noodzakeli jke aanschaf 
voor uie onbekend is met de 6502-taal . Als U niet in hardware, in 
het bijzonder het bouuen van een eigen 6502-systeem bent geinteres- 
seerd,laat U dan niet ook nog eens het HARDWARE MANUAL aansmeren, 
dat pure electronica techniek bevat. Een gemis in het programming 
manual is overigens een beschrijving van het 6522VIA dat in de 
CBM is gebruikt. 

Over de eigenaardigheden in de BASIC-interpreter rept het USER-MANUAL 

met geen uoord! Het beschrijft bijvoorbeeld hoe je een leesfile 

in direct mode kunt openen ,maar vergeet te vertellen dat dat zinloos 

is omdat noch GET#noch INPUT#in direct mode mogelijk zijn. 

Ook, het navolgende koste mij heel uat hoofdbrekens voor ik de oor- 

zaaK ontdekte: 

10 A=8.7:B=6.9 

20 IFA-B=1.8THENPRINT"A-B="A-B:END 

30 PRINT"IK UEET HET NIET" 

RUN 

IK UEET HET NIET 
READY. 

Tracht nu in de direct mode te ontdekken uat er aan de hand iis : 

?A-B 
1.8 

READY. Het raadsel lijkt compleet en je verslijt jezelf voor 

gek! Tot ik het volgende probeerde: 

?A-B-INT(A-B) (zou .8 moeten zijn) 

.799999999 

Een belachelijke zaak dat de variabele uel afgerond uordt geprint 
maar niet afgerond uordt opgeslageni Dergelijke vergeli jkingsope- 
raties: Uitkijken geblazenl 

De beginneling in basic heeft een computer die uat deze taal be- 
treft niets aan duideli jkheid te uensen over laat.Alle promts zijn 
b.v. zeer uitgebreid , zoals voluit PRESS PLAY AND RECORD . . enzv 
De geroutineerde gebruiker gaat zich daar aan ergeren: Uie byvoorbeeld 
dacht dat zijn korte programma juist op het scherm kan uorden af- 
gebeeld, ziet een 3 tot 4 regels nutteloos ueg "scrollen " omdat de 
boodschap READY, deze opeist , ri jkeli jk vergezeld van Cariage returns. 
Het is onmogelijk deze boodschap te editteni Eveneens hinderlijk 
is dat de BASIC interpreter deze boodschap niet kent als een uoord 
dat moet uorden genegeerd. Het uordt bij een ongelukkige CR als 
READ Y. geinterpreteerd en dat kost ueer vier regels van het scherm 
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voor ?OUT OE DATA ERROR en ue"er READY. 

Gelukkig is men met de punt achter READY, die een belangrijke functie 
blijkt te hebben.Als het bovenstaande gebeurt teruijl het programma 
een of meer DATA-statements bevat zou er daarvan een uorden gelezen 
en starten met GOTO van dat programma gaat dan mis. 

Nu geeft CR over READY, een SYNTAX ERROR omdat de variabele Y. niet 
uordt geaccepteerd . 

Het merendeel van de fouten uelke in de PET aanuezig uaren is ver- 
duenen.De f outmeldingen zijn iets verbeterd. Zo uordt een poging 
om meer dan tien datafiles te openen niet meer afgestraft met een 
vastlopend operating system maar met een foutmelding ?T00 MANY FILES. 
Deze melding uas een verrassing omdat hij ook niet in het USER-manual 
uordt genoemd. 

De communicatie met de buitenuereld is even krachtig als die bij de 
PET al* uas: Hier is niets veranderd. Vooral met de USERPORT kan 
men doen uat men uil,vooral in machinetaal. Merkuaardige tegenstri jdig- 
hei d . 

Communicatie tussen basic en machinetaal is mogelijk met de be- 
kende commando's USR en SYS. Ook op de USR-functie enige kri^tiek: 
Een basicvariabele uordt in f loatingpointnotatie "megenomen" naar 
de machinetaaluereld en kan daar desgeuenst met een 'subroutine op 
$ D09A naar een tuee bytes integer uorden gecon verteerd . Het hinder- 
lijke is nu dat dat allleen in TUO COMPLEMENT mode kanj Men hoeft 
dus niet te proberen met USR een integer groter dan 32767 naar ma- 
chinetaal te brengen. 

Tydens gebruik van machinetaal is BASIC echt uat opdringerig , zoals 
het NMI-gebruik dat het machinetaal programma uel stopt maar uaarna 
de computer ueer alleen naar basic luistert en zo zijn er meer 
voorbeelden te noemen. 

Tenslotte heeft COMMODORE kennelijk als volgt geredeneerd: Uie een 
prof essionalcomputer aanschaf t , koopt ook meteen een FLOPPY en heeft 
geen interesse in de cassetterecorder , die is er nog uel bij te krijgen 
voor de armoedzaaier . LJaarom deze hatelijke opmerking ? CBM heeft 
het na alle PET kritiek nog steeds niet nodig gevonden de recorder 
van eerv bandtellert je te voorzien zodat aan het prettig uerken met 
de recorder nog steeds een niet te onder schatten afbreuk uordt ge- 
daan . 

Na al deze kritiek^die nog lang niet compleet is, voel ik me verplicht 
te eindigen met op te merken dat ik ze niet gespuid heb om een slechte 
computer af te kraken „ Over . slechte computers schrijft men geuoon niet] 
Ik vond dat de CBM als een voortref f eli jke en naar mijn gevoel nog 
steeds ongeevenaar de machine deze kritiek uaard uas. En, uat het hoofd 
doel van dit artikel is: Vrijuel alle problemen zijn toch op te lossen 
door de gebruiker en de mogeli jkheden zijn groter dan men denkt,ook 
en vooral in machinetaal. Daarover uil ik het in een serie artikelen 
gaan hebben. Mijn enig ref erentiemateriaal is daarbij mijn CBM. Niet 
alles uat voor deze computer uordt gepubliceerd is geschikt voor de 
PET maar is daaraan uel eenvoudig aan te passen,uaaraan ik de nodige 
aandacht zal besteden. 
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JfflMZI£WIWG.EN AAN DE PET/CBfl 

Ml IN de test van de PET in Radiobulletin staat al beschreven dat 
een druktoetsje tot het geuenste doel kan leiden. Gebruik een 
toets met een schakelmoment , anders gaat U zich dood ergeren 
aan het aantal "dubbel " interrupts. Een goede oplosssing is 
□ok een geuone uisselschakelaar die volgens fig 1 uordt aan- 
gesloten.Een minderelegante oplossing geeft fig 2,als U over 
een geuone drukknop beschikt. De handigste plaats is een gat 
boren in het gemakkelijk af te nemen zuarte frontje onder de 
monitor. De drukschakelaar moet tussen pen 6 en massa uorden 
geschakeld . Uoor de pet betekent dat solderen of plaatsen van 
een pennetje met stekertje op de print. (Als U het niet aan- 
durft mag U gerust even bij mij langs komen.met Uu PET) 
In de CBM is het simpeler: een steker verbinding naar pen 24 
van de geheugenuitbreidingspoort , dus geln soldeeruerk. 

RESET Belachelijke gang van zaken is de reset van een CBPl/PET die 

bestaat uit het uitschakelen van de computer en ueer inschakelen. 
Daarbij uist het initialiseringsprogramma actief het RAN. 
Dat geldt echter niet voor de cassettebuf f ers en daarvan zullen 
ue later veel plezier hebben als ue ook nog een r esetschakelaar 
aanbrengen volgens fig 3. LAAT R EN C NIET UEG of U loopt de 
kans op een harduare-def ect J 
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De afscherming van de resetleiding dient slechts aan een kant te 
uorden geaard,denk aan de beruchte aardlusseni Als U deze afscherming 
ueg laat kunt U van tijd tot tijd geconf ronteerd uorden met een 
spomtane reset van Uu CBM door stoorimpulsen . Vooral het inschakelen 
van TL-verlichting zal problemen kunnen geven.Op dit moment lijkt het 
mij juist CBM/PET-ers te waarschuuen voor een ander gevaar: 

UU COMPUTER MOET GEAARD ZIONi Dat natuurlijk uit veiligheidsoverueging 
maar ook om een technische reden: TL-verlichting , motoren , transforma- 
toren en allerhande andere inductieve belastingen , kunnen Uu computer 
niet alleen ongeuenst resetten,ze kunnen ook uijziging aanbrengen in 
het RAM geheugenl Uat echter nog veel erger is: Mij is tot mijn schade 
gebleken dat dergelijke moordenaars Ichte vernieling aan kunnen richten 
in de hardware: De spanningsstabilisator van mijn CRT zag ik met eigen 
ogen sneuvelen toen ik de TL in mijn hobbyruimte inschakelde. 
Ik heb lange tijd in Duitsland geuoond en mij verbaasd over de elec- 
trisohe installaties in de huizen daar : Geuoon draadje achter het 
stuckuerk in de muur , ongeloof li jk voor onsi In een ding zijn ze ons 
echter voor: Stopcontacten zonder randaarde hebben ze nergens. Tenzij 
U dus met Uu CBM in de keuken gaat zitten,zult U zich de aanleg van 
randaarde in Uu hobbyruimte moeten getroosten. 

En nu het nut van de aangebrachte voorzieningen en het gebruik ervan. 
Het gebruik van NW als altijd uerkend "PANIEK"-knop je is duidelijk, 
maar veruacht geen uonderen. Uat U, integenstelling tot de stoptoets, 
met NMI kunt doen is een machinetaalprogramma onderbreken. Een door 
een programmeerf out vastgelopen operatingsystem zal. alleen nog naar 
RESET luisteren. Ook bij gebruik van onze ze If ^-igebrachte resetschake- 
laar betekent dat een schoongeuist geheugen: Ueg programma] 
Gebruik NMI NIET als de geuone stoptoets hetzelfde kan doen. Een 
met nmi onderbroken I/O operatie levert namelijk een vastgelopen 
operatingsystem op! De geuone stoptoets kan dat klus uel aan. 

Het nut van reset heb ik al genoemd: Zolang de computer niet uordt 
uitgeschakeld is de cassettebuf f er even veilig als R0M1 

Ue zullen met deze cassettebuf fer nu het een en ander gaan doen in 
de vorm van een sof tuareuitbreiding.Uie hem later in ROM uil zetten 
kan dat doen: Er zijn vrije ROM locaties aanuezig op de CBM-print. 
Petbezitters dienen in de programma's zorgvuldig alle zeropage lo- 
caties te ui jzigen,m.b. v hun listing van het operating systeem in 
hun manual. 

l/oor bezitters van andere systemen moet ik,om het programma begrijpe- 
lijk te maken van tijd tot tijd enige extra informatie geven m.b.t. 
mijn hardware , zodat ze ueten uat ik doe en programma en hardware 
zo tnogelijk aan hun systeem kunnen aanpassen. 

RUpWoff 
o&8 \9- S(B\ 
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PROGRAMMABESCHRIJVING MODELTREINS PflJLAT IE . 



Auteur: Ted Schouten - Haarlem 



1. Inleiding. 

Voor de beschrijving van de baan: zie KIM kenner nr. 12. 

In de 16 sectieadressen wordt aangegeven of in deze seotie gewacht kan 

worden of dat het een eindsectie is. Het onderzoek, of een trein mag 

lopen strekt zich normal erwijze uit tot een eindsectie bereikt is. 

De bezetting van een sectie wordt aangegeven door het treinnr. erin te 

plaatsen met bovendien de richting van de trein. 

De 10 route's bevatten de achtereenvolgens te doorlopen plaatsen behorende 
bij deze route's, afgesloten "PF". Hetzelfde sectieadres kan in verschil- 
lende plaatsnummers voorkomen, afhankelijk van, of deze route de betref- 
fende sectie passeeert. 

In het plaatsnummer wordt aangegeven welk sectieadres het geldt, in welke 
richting de trein beweegt en hoeveel tijdseenheden nodig zijn om de volgende 
sectie te bereiken. 

2, Programma. 

Voor elke trein wordt achtereenvolgens onderzocht: 

a. Of deze nog bezig is zich te verplaatsen. 

b. Of elke stap op weg naar een eindsectie nog vrij is. 

c. Of indien bezet, deze trein dezelfde richting heeft. 

d. Indien een sectie bezet is en deze trein komt in de tegengestelde rich- 
ting, wordt nagegaan of de weg van deze trein tot een botsing zou voeren 
of dat deze van de weg af slaat, waardoor de betreffende trein toch nog 
zijn volgende stap mag uitvoeren. 

De volgende punten zijn in het programma verwerkt: 

a. Sectie 5 en 8 mogen alleen bezet worden als de sectie daarna vrijgemaakt 
kan worden. dit bevordert de doorstroming. 

b. Als het opgegeven aantal tijdseenheden doorlopen is, of er is in bv. 16 
tijdseenheden geen stap gedaan dan stopt het programma en volgt er 
display-informatie over oorzaak, plaats en afgelegd aantal stappen. 

o. Als de kruising bezet is, wordt geen stap hierop toegelaten. 
d. Voor de statistiek worden de tijdseenheden en het aantal per trein 
uitgevoerde stappen, hexadecimal bijgehouden. 
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3. Definities. 

a. Het doorlopen van een sectie met de klok mee, wordt als richting 



= 1 aangegeven. 
b. Ee"n lengte-eenheid = 18 cm. 

Ee"n tijdseenheid is ca. 0,2 sec. 

Voor het doorlopen van een sectie die 72 cm is zijn dan 4 tijds- 
eenheden nodig. De normale snelheid is dus ca. 90 cm/seo. 
Er is geen langere sectie dan 8 lengte-eenheden. 

4. Opmerkingen. 

a. Niet alle gekozen routecombinaties zullen voldoen.Dit is te wijten 
aan de complex in elkaar geweven baan. Een tegemoetkomende trein 
die afslaat, kan toch nog een botsing veroorzaken door later weer op 
de uitgestippelde baan terug te komen. Om dit uit te proberen is de 
melding "Botsgevaar", ingebouwd. 

b. Verbeteringen door bv. : 

1 . De display van de baan op een monitor te tonen. 

2. Voor elke lengte-eenheid een deelsectie te maken. 

3. Lengte en snelheid voor elke trein op te kunnen geven. 

4. Andere en betere modelbanen te ontwerpen, 

c. Dit programma kan meer dan men op een KIM-display kan volgen. 

Voor klein behnisden (weinig RAM), kan dan ook herprogrammeerd worden 
door bv. slechts 2 treinen te laten lopen en statistiek, botsgevaar en 
foutmelding te laten vervallen. Bv. de subroutine's: 02A0-02B0-02D0- 
02EO-0380-03A0-0500-056O-0580. 

5. Conolusie. 

Met dit programma wordt een basis gegeven voor het zichtbaar volgen van 
de op de display voortbewegende treinen, volgens een vooraf opgegeven 
routeprogramma. Voor gelntreseerden is het mogelijk om naar nog effectie- 
vere methoden te zoeken, waarbij het statistische gedeelte een hulp kan 
zijn. Het ideaal is om dit programma uit te bouwen en zo flexibel te maken 
dat elke willekeurige baan kan worden beschreven en volgens de geldende 
principes kan simuleren, of als alternatief , de treinen in de praktijk 
automatisch te besturen. 
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INTERNE VARIABBLEH. 



Adres 


Inhoud 


Beschri.jvinff. 


Afkortin^ 


0000 


10 


Treinsnelheid. (Displaysnelheid) 




1 


01 


Aantal treinen. 




2 




Plaats onderzoek. 


P0 


3 




Aantal plaatsen. 


AP 


4 




Plaats uitvoering. 


PU 


5 




Uitvoerende routepointer. 


UBP 


6 




Nieuwe routepointer. 


NRP 


7 




X - waarde 


X 


8 




Bezet, of bezig met treinnr. 




q 




nichting trem. 




A 




Plaatsnummer . 




B 




Se c t i enummeT * 




c 




Sectieinhoud. 




D 




"F 1 ou"hcnni:T*oT p 




E 








F 








UUlO 




Plaats onderzoek - Trein tegen. 


P0.TT 


11 




ROTl"t©T)Oi n+.PT» mm n w 


~T)~n mm 


12 




AflTl+fll Til flfl+flon M 

J1CX1.A l/CXJ. ^J_L Cid IsO V?X1 ~ 


AP.TT 


15 




FJAf*"t*i oflHT'Ofl _ w it 


C* k mm 

SA.TT 


-1 A 

14 




Botsgevaar. 




15 




Aantal "uitvoerende" plaatsen. 




16 


FF 


Tijdbe perking. High order. (FF = geen beperking) 




001 C 




Adres low; route. 




1D 


00 


■ high; " 




1E 




Adres low; display. 




1F 


07 


H high; " 





320 Aantal tijdcycli low. 

21 " « high. 

22 Aantal stappen trein T1 low. 

23 " " ■ T1 high. 

24 " " »' T2 low. 

25 " " " T2 high. 

26 » " » T3 low. 

27 m n n ^ h±gh# 

28 « t 4 low. 

29 ■ « » T4 high. 
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AMUSEMENT 



Adres van/tot. 
- 0033 



Beschri.iving. 



- 0043 



0050 ■ 

0060 . 
0068 • 
0070 • 
0078 • 

0200- 



• 0053 

OO67 
■ 006? 

i 0077 
007F 

Sectienr. 



Bezig met routepointer. 
Startplaats. 13/12/1B/1A 
Vorige plaats. 

Aantal tijdeenheden nog bezig. 



> Voor trein T1 t.m. 



Trein T1 
n T2 
11 T j 

N T4 



De startplaatsen van de achtereenvolgens 
te doorlopen route's. 



0 



020F <Lengteeenheid. 4 



1 

3 



2 
2 



3 
2 



4 

1 



5 
5 



6 
6 



Inhoud 



7 
3 



8 

5 



9 
4 



A 

3 



B 
4 



c 
7 



D 

5 



E 

5 



F 
6 



CO GO 00 00 00 00 40 00 00 40 00 00 40 00 CO CO 



Adres 




Inhoud 


Route nr. 


0210 


— 


0217 


BC DD OC 1B 2A 3A 8D PP 


10 


0218 




021 F 


32 22 P3 E4 D5 B4 85 PP 


18 


0220 




0226 


BC CP 5D 49 3A 8D FP 


20 


0228 




022E 


32 41 55 C7 B4 85 PF 


28 


0230 




0236 


9C A3 55 66 7B 8D PF 


30 


0238 




02 3E 


73 6e 5D AB 94 85 FP 


38 


0240 




0246 


BC CF 5B AB 94 85 PP 


40 






024E 


9C A3 55 C7 B4 85 PF 


48 


0250 




0256 


32 41 55 66 7B 8D FF 


50 


0258 




025E 


73 6E 5D 49 3A 8D PP 


58 


0600 




06FF 


Stack voor de achtereenvolgens 


onderzochte 



de betreffende trein. (in het programma wordt de tegemoet- 
komende trein vergeleken of deze dezelfde weg volgt in 
omgekeerde richting. ) 



Opbouv sectiebytes; 

Bit 7 Eindsectie = 1 

6 Wachtsectie = 1 

5 - 

4 - 



11 

11 
11 



" 3 Richting 

" 2\ 

" 1 > Indien bezet treinnr. 

" oj 



Bit 


A 


11 


6 


it 


5> 


ti 


4J 


11 


3 


11 




11 


i 


ti 





i 



> Sectienr. 



AIM - display. 
0700 - 0713 
0714 - 0727 



42 4P 54 53 50 4C 41 2E 3D 30 30 2P 30 30 2F 30 30 2F 30 30 
53 54 41 50 4E 52 3D 30 30 30 50 2F 30 30 2P 30 30 2P 30 30 
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02B0 
02D0 



SUBROUTINES. 
0260 INIT 

INIT STATISTIEK 
TEL STAP TREIN 
VERHOOG TIJD 
PRC 
0320 TIJD 



0360 TREIN -*.SECTIE 
0380 RICHTING DEZELFDE 




AMUSEMENT 



03A0 SECTIE 5 OF 8 

0400 VOLGENDE STAP 

0490 VOLGENDE ROUTE 

04BO STAP UITVOEREN 

0500 BOTSGEVAAR 

0560 VOLGENDE ROUTE TT 

0580 KRUISING BEZET 



03C0 
03E0 


DISPLAY 
WACHT 0,2 SEC. 


02E0 


TREINSTOP 


0800 


DISPLAY RESULT. 


0820 


HEX -*>A + Y 


0880 


STAP DISPLAY 
BOTSDISPLAY 



Zet de inhoud v/d 16 secties in de display. 
Geeft ca. 0,2 sec. vertraging. 
Kijkt of tijd of fout bereikt is. 
Zet oorzaak treinstop met gegevens in de display. 
Maakt van hex-getal - ASCII in A en Y-register. 
Stelt display samen na bereikte tijdgrens. 
Stelt display samen na bereikte fout. 
Vraagt aantal treinen, route's, startplaatsen, enz. 
Onderbreekt het programma door drukknopbediening. 
( ) = Niet bijgevoegd. 

VOORBEELDEN. 

Voorbeelden van gekozen route's die met dit programma goed funktioneren 

op deze baan, met het aantal stappen aangegeven binnen 256 tijdseenheden, 

Aantal stappen. 
3P 



(0900) VRAAG GEGEVENS 
KEY 



1 Trein: 



Route 1 s 

10,20,30,40,28,38, 50,FF 



2 Treinenj 



3 Treinen: 



4 Treinen 



10,40,38, 58,FF / 35 
10,30, 48, 50,FF / 2C 

10,30,20,FF / 36 
10,20,30,FF / 26 
18,38,28,FF / 13 

10,40,58, FF / 2C 
10, EF / 24 

18,38, FF / 3F 
18,28,FF / 1E 



of 



of 



10,48,28, 58, FF / 3C 
10,40, 38, 50,FF / 28 

10,40,58,FF / 39 
10,30,20,FF / 3C 
18,38,FF / 27 
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0500 



C~ B0T3 D1G GE7AAR ) 
1 



teak X voor TT 
Haal pl.TT-»P0.TT 
Eaal fiP -»RP.TT 
Haal AP -»AP.TT 



Verhoog PO.TT -»>Y 
Haal pl.J-nhoud 




VOLG. ROUTE 


TT 


1 


Bepaal adres r: 


Jte» . 


Verhoog Rl. 


TT 


Kaa.1 route 


in 


adres. +RP.TT 



la < 

laatst« rout 



052- 











3 






"aak R?.TT=0 

T-T 1a routsairea 




Zet 


. I 

in | 


In po.rr. 






PO.TT | 








S 


f 







Versinier AP ->T 
Eaal pl.ar in tab^l. 
Ea.3.1 sc-ctieadr**. 




Zet 






Geen 


bot3gevaax 




botagavBaj 




' ■ 


I 



RETURN 



Kaak NRP = 0 
Zet 1e route^dr. 
in P0. 



0J00 



START 



( VRAAG GBCEVEMS ~) 
( 0250 MIT 



AMUSEMENT 

0430 

( STAP UITVOEREN ") 




Zet tijd bezig=0 
Zet RP = 0 
Zet tijd 
Zet botsgev.= 0 



C DISPLAY SECTIES ) 

_ 03SQ | 

C V-'ACHT 0.2 SEC. ~) 

0320 ■ ! 
( TIJD BIJVERKEN 3 
04 00 | "~ 
( VOLGKKDE STAP ~ ) 



0402 



Voleende trein [ 




( KEY INTERRUPT 3 
02EO 

TREINSTOP 




0800 | 3 
C DISPLAY RESULT. ) 



0490 



C VOIC.ROoTE 



Bepaal adrea rout.a 

Verhoog NRP 
Eaal route in 
adrea + ;^IP 




STROOMDIAGRAM MODELTREINPROGRAMMA. 



TT = Trein tegengesteld. 

RP = Route pointer 
NRP = Nieuwe routepointer. 

AP = Aantal plaatsen. 

PO = Plaats onderzoek. 

PU = Plaats uitvoering. 

VP = Vorige plaats. 
URP = Uitvoerende routep. 



Haal pi. nr. 

Kaak sectieadres. 

Haal sectieinhoud 



Zet trein op 
startpl. in seotia 




Zet AP = 0 
Zet R? -»»HRP 
Zet pl.nr.-*P0 
Zet "uitv"= 1pl. 



Verhoog . PO 
Zet PO -»-Y 
Haal pl.inh» 




042C 



Verhoog AP 
Zet PO in tabel 



Zet PO -»»Y 

Haal sectieadr. 




Zet PO -~PU 

Zet NRP » URP 




| Zet "uitv"= 2pl 



Eaal PU -~Y 
Haal sectieadr. 
Zet trein + 
rich t.- »3ectle 



Haal VP -* Y 
Haal sectieadres 



Zet Pa ■♦pl.nr. 

Zet PO -»VT 

Haal tijd uit pi. nr. 

en -.."Tijd nog belly? 
Zot URP -»R? 



Zet fout a 0 
Tel stap bij trein 



c 




050 0 
C 30TSGEVAAR 




04BO 

C . STAP UITVOSREH 
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S2b@ AO 
0262 B3 
026i 23 
0267 99 
02bH CS 
026B C0 
026D D0 
02bF 
02~i 
0272 
0274 
0276 
0277 

0279 
027B 95 
02/D 20 
0280 B5 
0282 95 
8284 95 



02W VERH00G TIJD 



92 
E8 
E4 
DS 
68 
fly 
95 



28 



0239 P3 

028B 85 

023D A3 

028F 85 

8231 85 

8232 4C 



LDV 
LDA 
AND 
STA 
INV 
CPV 

LDX 
INK 
CRM 
BNE 
RTS 
LDfl 
STfi 
STH 
JSR 
LDfl 
STfi 
STH 
JSR 
LDfi 
STfi 
LDfl 
STfl 
STfl 
JMP 



f 8y Secties 
8208.: v leegmaken 

#C0 

0288, V 

Volg. sectie 
Laatste 



me 

8262 

01 

8277 

#88 

59, X 
73, X 
82fl8 
40, X 
70, X 
48, X 
0760 
#02 
0F 

#00 

ID 
0D 

8271 



Volg. trein 
Laatste 



Trein bezig 
RP 

Statist. 
Startpl. 
PI. nr. 
Vor.pl. 
Tr.- sectie 

Displ.adr, 
sectie 

Displ.adr. 
tekst 



02AQ INIT STATISTIEK 

0238 fly LDV #80 

0232 98 TVfl 

0237 99 bTA 8028, V 

0236 CS INV 

02A7 C8 CPV #18 

8239 D8 BNE 82fl7 

823B 68 RTS 

02B0 TEL STAP TREIN 

02B0 8 A TXA 

02B1 8fl flSL . fl 

82B2 A8 TAV 

02B7 B3 LDA 

02BS 18 CLC 

02B7 63 ADC #81 

02B9 99 STfl 0822, V 

02BC B9 LDfl 0822, V 

02BF 63 ADC #88 

02C1 99 STA 0Q22, V 

82C4 68 RTS 



H5 
18 
69 



yvny 
0222 
8227 
8235 85 
0237 A5 
0279 63 
82DB 85 
02DD E6 
02DF by 



LDfl 28 
CLC 

ADC #01 

STA 28 

LDA 21 

3DC #08 

STfl 21 

INC 8D 
RTS 



0500 PROGRAMMA 







7373 (20 7SF 





Vraag geg. 
Init 

Displ. secties 
Wacht 

Tijd bijwerk. 
Volg. s tap 



0412 (£Q JSR E98C) Key interr. 
8215 (28 JSR 82E0) 



0318 4C JMP 0386 
0320 TIJD J3IJWERKEN 

I fl2 LDX #FF 



10 Jic: no 



£7 

D0 

28 
60 
B5 



8727 
832R 
072B 

8 : - '?T'! 



072F D6 
0321 4C 



CPX 81 
BNE 822B 
JSR 82DQ 
RTS 
LDfl 



DEC 50, X 
JMP 0322 



Treinstop 



Volg.tr. 

Laatste 

Statist. 

i 

i 

Tr. bezig 
Min 1 



0540 SECTIE IMHOUD 



8342 
8345 
0246 
0747 
8348 
0349 
034B 
834C 



yj.-y 
0753 



84 STV 89 

B9 LDfl 8200, - Haal pl.inh. 

6 A ROR . A 

6A KOR . fl 

6A ROR . fl 

6 A ROR . fl 

23 AND #0F Maak sectienr. 

A3 TAV 

36 STX 87 

85 bTfl OB 

B3 LDA 820O, V Haal sectieinh. 

by Nib' 



Copyright Ted Schouten. 
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I I I I 


fly 

C C!j 


-Qv 




8364 


£ 57 


r N 


#33 


8366 


85 


STfl 


89 














HNL- 


#58 


836D 






Tr 






ADC 


07 


8370 




5L5 




0371 


65 


535 


09 








8288, 


0380 RIGHTING DEZELFDE 


0330 
0332 


fi5 
HS 


LDfl 
TflV 


82 


0333 


58 


LDfl 


@ if 8*1. 


0335 


28 


AND 


#33 


03'- S 


35 


STA 


8? 


033 fl 


A5 


LDfl 


88 


BSSC 


25 


AND 


#88 


03SE 65 


QMP 


89 


6_56 


68 


555 




03A0 SBC 


3TIE 


5 OP 3 


0330 


35 


LDfl 


84 


0332 


A3 


TflV 




63A5 


39 


LDfl 


8288, 


0335 


29 


AND 


- - 8 


8333 


59 


CMP 


#88 


5199 


58 


3E5 


3331 


6396 


59 


8 MP 


-58 


0j 3E 


F8 


BEQ 


8851 


03 38 


68 


RT5 




8331 


59 


LDA 


#03 


8335 
8335 


35 
68 


STA 
RT5 


15 



03E0 VACHT 0 f 2 SEg.(AlH) 



Richt. 
Sectieinh. 



X- waarde 



P0 

Haal pl.inh, 
Richting 

Foal sectieinh. 
Richting 
Oelijke richt. 



Pl.inh. 



Sectie 8 



Sectie 5 



Aantal uitv.pl. 



03C0 DISPLAY (AIM) 

0380 20 JSR EB44 Zet pointer 

0383 H8 LDV #55 op nul. 

0385 88 IHV 

8356 88 8PV #18 16 char.gehad 

82C8 D8 SNE 8 3 85 

@3Cfi 68 RTS 

83 8 B B9 LDA 3288/ V Sectieinh. 

835E 29 AND #87 ' Tr.nr, 

83 D8 28 JSR EflSA Zet in displ. 

8353 48 Jf# 8385 





56 




•—• w 


93E2 


A9 


LOfi 


#68 


8354 


3D 


STA 


A08B 


8557 


8D 


STA 


A808 


83EH 


A9 


LDfl 


#99 


83E3 


8D 


STfl 


9089 


83EF 


A9 


LDfl 


#20 


03F1 


28 


BIT 


A00D 


05 54 


F8 


SEQ 


0351 


0356 
03F9 


AD 
8A 


LDfl 
DEX 


H V *L- o 


83FFi 


D8 


BNE 


03E2 


S2FC 


68 


RTS 





0400 VOLGENDE STAP 



8488 

0432 

8431 

8435 

8-87 

6-89 

348A 

8488 

8435 

S419 

6^12 

8414 

8-16 

8418 

841fl 

8418 

S41E 

0428 

3422 
8425 
8-27 
8429 
8428 
842E 
8438 
0432 
0435 
8437 
6439 
8438 
843E 
8448 
0442 
0444 
0445 
8448 

844A 

844D 
844E 



82 
58 
86 
E4 
D8 
68 
B5 
D8 
A9 

r,— 

Q J 

B5 



35 
99 

O - 

Q 

E6 

A4 

B9 

89 

D8 

28- 

Efa 

A4 

fl5 

99 

A4 

28 

85 

AS 

89 

D0 

fl5 

85 

A5 

85 

20 

EA 

EA 



#FF 



LExX 

im 

STX 
6PX 
BNE 
RTS 
LDA 
BNE 
LDA 
S'i fl 
LDfl 
STfl 
LDfl 
STfl 
LDfl 
S I fl 
IN5 
LDV 
LDfl 
CMP 
BNE 
JSR 
INC 83 
LDV 83 



87 
81 

040A 

58. X 
8462 
#88 



86 

38.. X 
82 
#82 
15 
82 
02 

0200 
#5F 
0428 
8438 



Volg tr. 
itste 



Tr.nog bezig 



Aantal pi. 

Routepoint. 

NRP 

PI -nr. 

Pl.onderz. 

Aantal uitv.pl. 
PI » onderz , 
Pl.onderz. 
V Haal pl.inh. 



LDfl 
STA 
LDV 
JSR 
STA 
LDA 
8MP 
BNE 
LDfl 
STA 
LDA 
STA 
JSR 
NDP 
NDP 



62 

8660; 

62 

8346 

86 

83 

#61 

6456 

02 

64 

86 

85 

03A8 



Volg. route 
Aantal pi. 

Zet pl.onderz. 
V in tabel. 



Sectieinh. 

Aantal pi. 
Is 1 

PI. onderz, 

Pl.uitv. 

NRP 
URP 

Is dit 5 of 8 
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AMUSEMENT 



044F Eh NOP 



0463 B3 LDfl 8288, 



8458 


85 


LDfl 


80 


Sectieiiih. 


@4 CC 


3 8 


AND 


#67 


Aantal tijdeenh. 


8452 


y *-? 


AND 


-5~ 




846E 


35 


y i fl 


56, X 


Tijd nog bezig 
URP 


0454 


FO 


BEQ 


84 fS 


Sectie bezet 


04D8 


A5 


LDfl 


85 


845S 


>- — 

Q -_■ 


STfl 


88 




04D2 


95 


STfl 


33; j:; 


Bezig RP 


8458 


06 


DE5 


88 




0404 


28 


JSR 


82B8 


Tel stap tr. 


'•J 4 - A 


E4 


6py 


y y 




0487 


A3 


LDfl 


#08 


j/j ~ 


~0 




i-j .i — .- 

4 g b 


Dezelfdo tr. 


0-08 


85 


STfl 


80 


Maak f out nul 


K! — ■ - t 


85 


0D6 


00 


Aantal pi. 


04DB 


68 


RTS 










8Mp 


15 


Aantal uitv.pl. 












04 ££ 




bH i 


047E 


Kleiner? 


0500 BOTo INGGEVAAR 




8 -to 4 


2® 


JSR 


8088 


Richt.dezelfde 


05Sfi 

- - - * ■ 


gfi 


t y q 

i i 1 1 i 




Bewaar X 


^' — e i 


F8 


BE" 


8478 






4Q 


pfifi 

I : ! ; i 






O 4 


20 




05O6 


Botsgevaar 


■-• ■_• ■_■ i— 


fi", 

i t W 


\ TiU 
La l- n 


fir 


Sectieinh. 


8480 


85 




14 




s=;li4 

w -- : v *T 


C- O 7 


n f 4 1- 1 


# a 7 




846E 


08 


303 


04? E 




_ _-■ 


J O 


c c r 










L L- ! H 


00 


Sectieinh. 


'_■ ■_- 1 


P 


C D - 
_' i_ : '-- 




1, ICUa-lV A. Ft Ckd^L U.C 


8 472 




AND 


syy 


Eindbectie 


•—■ — - 


i i n 


T fi y 






$4? 4 


FO 


3E5 


04 j £ 


058fl 


s=; 


1 no 


i pi . 


P3-. tr. 










Kruis.bozet 


8506 


r: ^. 
■— ■' 


"Tfi 

JIM 


i 8 


PO.TT 








047E 




w ■_- £L 




4. l-' n 




Dciilft iTJT 


8 - " B 




"83 


0488 


Scap uitv. 


■-■ — w 


Q (F 


Z.Jfi 

4 I i i 


■i -i 


RP.TT 


5 - " : E 


48 


J MP 


3-062 




85i2 


R5 


LDfl 


8-0 


0490 VOLGFNDE ROUTE 




Ci="-i 4 

V w J- *T 

0516 


!**! — 

C ; 

E6 


"TQ 

_■ : n 

INC 


•i □ 

18 


AP.TT 
PO.TT 


8-88 


88 


ixa 


Maak adr. route 


0516 


A4 




•i 




6-81 


83 


86L 


. fl 




0518 


B8 


LDfl 




V Pl.inh, 


8.82 


0H 


AS_ 


. fl 




P; =. -i h 

■— • _* *. 


rfi 


I i -. 


i: ; : 




©,493 


Oh 


8SL 


. fl 




851F 


D8 


BNE 


Kg — : : 




3^84 
8-^55 


13 
63 


OLC 
8DC 


-60 




ii~ : -i 

■—■ -_■ — 

'■8524 


26 
46 


JSR 
J MP 


0560 
85:3 


Vol^. route TT 


849? 


65 


8T8 


10 




I- - " 7 

■ •-■ i — .- 


29 


AND 


#F6 


Sectienr, 


8-89 


E6 


INC 


06 


NHP 


0528 


85 


STfl 


10 


Sectieadr. 


8499 


84 


LDV 


86 




8523 


66 


DE6 


12 




8-80 


Bl 


■ [< 4 




"; Haal routepl. 


0520 


A4 


LtW 


A ■-. 
_4 4- 




8-8" 


08 


CMP 


#ff' 


Laatste 


S52F 


B8 


LDfl 


S600, 


V PI. in tabel 


8-81 


08 


BNE 


8468 




8532 


A8 


TflV 






8-80 


83 


LDfl 


#88 




0530 


B9 


LDfl 


8208, 


V Pl.inh. 


8-85 


O -- ! 


STA 


06 


NRP 


0506 


23 


•AND 


#F0 


Sectieinh. 


8-87 


fly 


TflV 






8508 


05 


OMP 


10 


Gelijk? 


@4ftS 


El 


LDfl 


(10), 


V Eaal routepl. 


Oyyfl 


F8 


BEQ 


0541 




8488 


"*«£-■ 

O - ! 


STfl 


02 


Pl.onde.rz. 


0500 


A3 


LDfl 


#80 




8480 


68 


RTS 






053E 
' 0541 


40 
85 


JMP 
LDfl 


8549 
12 


Geen botsgev. 
AP.TT 


04B0 STAP UITVOEREN 




0540 


09 


BMP 


#02 


Groter dan 2 


8488 


HD 






PI. uitv. 


05-5 


:1 O 


BPL 


8516 




8-32 


35 






Pl.trein 


0547 


fly 


LDfl 


#FF 


Botsgev. 


8434 


? 0 






Tr.-* sectie 


0543 


Pi — 

0~" 


STfl 


14 




$4B? 




! r, % 




Vor.pl. 


054B 


68 


PLfl 




Haal X 


8-039 










0540 


flfl 


TRX 
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Sectieinh. 


054D 


68 


RTS 
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84BF 




STfl 
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H5 


LDfl 
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0568 


88 


TKfl 
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8-84 
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Vor.pl. 


6561 


88 


flSL 
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bo" w 


LDfl 


- i U 


Pl.tr. 
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88 


RSL 
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18 


CLC 
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_■ 




# j-fl 




056-5 


69 


PDC 


#60 






98 




082C 




956^ 




5T9 


1C 




l7l :-: V P. 


69 


Snr 


#86 


T.p"h"ter 


0569 


E6 


INC 


il 


RP.TT 


■-■ -'• i 
K! :_. 


qo 


Tflv 

I Si 1 




Vol cende 


056B 


■*4 


LDV 


11 




S O " pi 
-- : -- 


n 








8569 


31 


LDP. 




r Haal routepl. 


082E 


6P 


POP 


. 9 




056F 


C9 


CMP 


#FF 


Laatste 


:-! P P 
- -■ -_■ w i 


W i 


pnj? 


H 




9371 


D8 


BNE • 


857B 




0878 


•6H 


POP 


' fi 




057? 


99 


LDP 


#00 




0831 


6P 




. fi 




0575 


O 'J 


5T9 


11 


RP.TT 


0832 


29 


PND 


#8F 




0577 


fly 


LDV 


#00 




0334 


18 


CLC 






@5?S 


Bi 


LDP 


C±C>; 


- Haal routepl. TT 


0635 


69 


PDC 


#30 


ASCII 


057B 


85 


STP 


18 


PO.TT 


0637 


C^ 


CMP 


#3fi 




857D 


68 


RTS 






0839 


90 


BCC 


88 3D 
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• 083B 
883D 


69 
60 


PDC 
RTS 


#86 


Letter 



8560 


95 


LDh 


84 


PI. uitv. 


85s 2 




H T 






8563 


ip*, .— , 






- : Pl.inh. 


0566 


c3 37 


H Hi.-' 


#F6 




:-i — Q 

is j ■-■ 






#98 


Sectie A 


056P 


6 8 




6596 




8358 






6267 


Sectie 7 


856F 




PN6 




Bezet? 


8561 


: "J 




6594 




8533 




IF- 


#FF 




6335 


68 


P~6 






8566 


C3 


r-*tp 


#78 


Sectie 7 


8568 


L.-' w 


BNE 






: ; L ' 




-• H 


Sectie A 


8563 


'dS 


H ^40 


— 0 ~' 


Bezet? 


336" 


F8 








0561 


9'- 
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95B4 fi3 LDP #86 Niet bezet 
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0600 DISPLAY RESULT. (AIM) 
C636 93 LDP #87 Displ.adr. 

0884 2*" JSR EB44 Zet pointer nul 



086 ? 


R6 


LDV 


#FF 








INV 




20 char.gehad 


3 3 DC 


D6 




883F 




0386 


66 


P"S 






0S8F 


Bl 


LDP 


(IE), 


V Display- 


8611 


28 


JSR 


E966 


char. inh. 


8814 


4C 


JMP 


3663 




;86_- 


4C 


JMP 


8889 





0820 HEX -*-A + Y 

8626 9P 793 
6-- 11 29 PND #6r 
882i 18 6L6 
8024 63 PDC #36 
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Bewaar acc. 



ASCII 



8840 
8642 


99 


LD9 


*14 


8344 


85 
PC 


ST9 
LDP 


-4 


8646 


28 


JSR 


6828 


0843- 


3D 


STP 


v 71B 


864C 


86 


STV 


871C 


084F 


95 


LDfl 


- 2 


8331 


26 


JSR 


8828 


6634 


8D 


STP 


371D 


8857 


86 


STV 


07IE 


885H 


95 


LDP 


24 


6656 


26 


JSR 


0328 


885F 


8D 


STP 


0720 


6662 


86 


STV 


6721 


0865 


95 


LD9 




665 r 


26 


JSP 


0828 


0069 


3D 


STP 


8723 


886D 


86 


STV 


8724 


0879 


95 


LDP 


o 


8872 


28 


JSR 


6828 


8675 


3D 


SIR 


8726 


0673 


86 


STV 


8727 


087B 


68 


RTS 




0880 BOTSDISPLAY 


• 


6666 


99 


LDP 


*68 


8852 


Q 


STP 


IE 


0884 


95 


LDR 


38 


0656 


28 


JSR 


8828 


06-69 


8D 


STP 


8769 


0066 


86 


STV 


8/89 


555:- 


95 


LDP 


31 


8591 


26 


JSR 


6826 


8534 


8D 


STP 


6766 


0857 


8C 


STV 


876D 


6839 


95 


LDP 




863C 


28 


JSR 


6828 


663F 


8D 


STP 


676.- 



Disrl.adr. 
Aantal stap 3 

T1 Aantal stap L 

T2 Aantal stap L 

T3 Aantal stap L 

T4 Aantal. stap L 



lispl.adr. 
Pl.nr.T1 

Pl.nr.T2 

pl.nr.T5 
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08BQ 20 RTS 

02E0J?II^j1ST0P 

82E0 P.5 LDH 16 
82E2 C5 C"P 2i 




Ml iio 




Tijdbeprk. 

Tijd H 






i/_tc- -ibK Lc-L C .;apdispl c 

02?J 4C J MP 02F6 

0:- "EC R5 LDH UD Pout 

02S.E C0 0MP #10 

02F0 10 BPL 02F2 

S2F2 60 RTS 

82>3 20 JSR 8888 Botedispl. 

02 ;; f 20 JSP 8898 Displ.res. 

v 2 '- 2 20 JSR ESO0 Keyinterr. 

/ _ r 4:.. J HP ij 2 ' J 



VOOEBfcSLI) AIM - DISPLAY 



Treinenloop 3281 3 8 0 8 8 8 3 8 8 2 4 8 
Tijd op S"PFKP = 002:/24/:P/2 

Botsinggev. E8 - SPLH. =42/34/12/2 




CS3F.0IK GKZ^UGENHTIMTS. 



DO 



0000 



0200 



0300 



0400 



05CC 



0600 



0700 



0800 



Variabel^n 



20 - 

40 - 
60 



Treinroute 
gogevens 



60 - 



AO - 



CO - - 



EO - 



Programs 



Route's + 
richt. + 
tijdgeg. 



Init 



Init stat. 



Tel a tap tr 1 . 



Tijd mind. 



Sectieinr. 



Trein- 

sectie 



Vole. 3 tap 



Rlcht.dez. 



Seotie 5,8 



Verhoog .ti, 
Pro ins top 



Display . 

n — ' 

Vacht . . 



Vol g. route 



Stap uitv. 



Eotsgev. 



Route 
vullen 



route TT 



Kruising 
oezet 



Display^. 



Display 
result. 



Ecz- A+Y_ 



Stap diupl. 



Botsdiepl. 
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HOLLAND. 




jind chosen card 
an ook mX hub) van dc KIM 




Kogal wat trues met speelkaarten berusten niet zozeer op vinservlugheid van 
de goochelaar maar op het nauwgezet uitvoeren van een procedure. Met de ge- 
volgen van zo'n procedure wordt dan het -hopelijk- verbluffende resultaat 
behaald. In de loop der jaren heeft Martin Gardner in zijn rubriek 
Mathematical Games in de Scientific American wel vaker z46r verbazingwek- 
kende voorbeslden besproken. Maar laten we ons eens bezighouden met een van 
de simpele trues. 

Men neemt de dertien kaarten van 66n kleur en -om het voorbeeld makkelijk 
te begrijpen te maken- legt ze op volgorde: 

Aas, 1, g, 3, 4, 5, 6, 7, 8, 9, 1 fit , Doer, Vrouw, Heer. 

Hen spreidt ze in de hand, beeld naar beneden, en vraagt een toeschouwer er 
willekeurig een te trekken. De toeschouwer onthoudt de kaart zonder die aan 
de goochelaar te laten zien. De goochelaar coupeert de kaarten die over- 
blijven denmaal (dus neemt een stapeltje van de complete stapel), laat de 
toeschouwer de kaart daarop terugleggen en beeindigt het couperen door de 
overgebleven stapel daar weer op te leggen. Nu schudt de goochelaar de 
kaarten eenmaal en wel met een zogeheten "riffle shuffle" (sorry, mijn 
goochelboek is Engels en de Hederlandse benaning ken ik niet). Dat is die 
manier van schudden waarbij de stapel kaarten in tweeen verdeeld wordt en 
de twee stapeltjes met de duimen wat omgebogen v/orden, met 64n hoek boven 
elkaar gebracht en dan geleidelijk met beide duimen worden losgelaten, 
waardoor om en om de twee stapeltjes in het midden in elkaar grijpen en 
dan ineen kunnen worden geschoven tot £en nieuwe stapel. Overigens een 
volkornen legale manier van schudden (ook wordt er bijvoorbeeld niet 
getracht een benaalde kaart bovenop of onderon te houden). 
Ha het schudden kan de goochelaar diverse twi,jfelende toeschouwers nog 
overtuigen van zijn "eerli jkheid" door die toeschouwers nog maar eens te 
laten couperen (kan meerdere roalen). Dan is alles gereed voor de ontkno- 
ping. Draai de kaarten om en spreidt ze op tafel uit. Uitgaande van de 
beginvolgorde als boven vermeld krijgen we nu bijvoorbeeld als resultaat: 

3, Boer, 4, Vrouw, Heer, 6, 5, Aas , 7, 8, 9, 2, 10. 

Alles wat de goochelaar nu te doen heeft is te kijken welke kaart het 
verst uit de volgorde is terechtgekomen; in dit geval is de volgorde die 
op tafel ligt 

3 ... 4 ••• 6 ... 7 ... 8 ... 9 ... 1 P 1 . . .Doer. . .Vrouw. . .Heer. . .Aas ... 2 

en de 5 is uit de volgorde geraakt, dus is die kaart getrokkenl Juist... 
verbazing alom enz. Toch is het simpel. Zowel couperen als de "riffle 
shuffle" brengen de kaarten helemaal niet uit volgorde! Zolang het coupe- 
ren maar gebeurt op de voorgeschreven manier -dus verdelen in twee stapel- 
tjes en niet meer- en de shuffle uitgevoerd wordt als beschreven, delen we 
de beginvolgorde alleen maar in tweeen en laten we die volledig intact in 
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de nieuwe volgorde orn en om looen. TJitstekend voer voor eon computer due. 
Het enige orobleem bi,i een mense] ijke goochelaar is natuurlijk dat de 
beginvolfcorde nogal las tig- te onthouden is als die willekeurie: is. Een 
computer kunnen we vcrte.1 len dat de begvinvolgorde van een nieuw uit te 
voeren true de eindvolfrorde is van de vorige en dan beeft-ie geen moeite 
om straks weer te gaan Vermel i j ken . . . snanninffstckorten ni tgesloten. . . 
'•/el moet de goochelaar dan zi^n kaarten on volgorde houden tussen het u.1,t- 
voeren van de trues door. 

Enige oolettendheid is geboden op 66n punt van rie procedure; trouwers ook 
het enige aunt waar de goochelaar daaawerkel i,ik "niet helemaal eerli.ik" is, 
overigens zonder dat een toeschouwer dat ooit kan oomerken. Dat punt if! 
pis de toeschouwer een kaart getrokken heeft . T !et couneren dat de gooche- 
laar nu uitvoert moet niet gebeuren on of vlakbi.i de nlaats- in de stanel 
waar de kaart getrokken isl Anders loop Je de dat de kaart terugkomt 

on zi.in oude rlaa.ts of zodenig v?ak err.aast dat de com outer re en keus kan 
maken uit meerdere kaarten die het "verst" verwi.lderd r.i.jp . " aar alia, de 
meeste mensen vi nden een computer ^ie zi ch wel eens ver-vist, veel siigos- 
tieker dan eent.ie die alti.id maar 



'Dan nu net pro gramma, "et 
verscheen in "I TC10-BU3" , 
van het Engelse maandblad 
een and ere 65 ( '?, de Acorn 
beiroei Ik me vcorl ant.<y no 



is een ongeverkt en uitgebreid. nrorramma dat 
een tweemaand e? i jkse rubrie'-c. voor en door Iczers 
"Practical Electronics" . :-Tet was geschreven voor 
con; outer. ! lr was ook een i '-'.To-verste , msur d aar 
• niet ma*. 



Start is on &2'#t) CO. 3i?, deze "koudo" start nsemt de •;; or. outer aan drt de 
be-ini'o" 1 'rorde luidt a In vo>t; 

Aas g 1 4 5 4 f B 9 -1« Boer Vrouw Heer 

= KI 1 ' -key: 1 ? * 4 =• 6 7 8 9 A 3 C S3 

Voe-'' nu de true uit on de onsch^evon vi.jze en toets dan de nieuwo volg- 
orde in. Gewoon do betr" ff ende toets indm':ken or, on net d is • slay vpr- 
schist on digit 1 vat -.et laatst in-edrukt is. hank je font 4*tJ 

kun i e de 1 a a. t s t i n ge ~-e v e n ka.a.rt te ru'^nemen door oa "J 1 ]" te drufckeii (error) 
en aVles wordt dan teru.g~edraa.id tot de voorlsatst in a»*| "even kaart , als 
die er was tenminste . . . 

Nadat de derti er.de kaart ingetoetst is verschi ;>t on dig.lt 5 de gotrokken 
kaart I 

OT OP: herntarteo met behoud van de laatste volgorde -rot "GO" , "TE'T met 
Hier dan bet nro.^ramma . Veal olezierl 



• mm 




]-"""v;<to 


- tei'inc^a.r;,'' key store 


: !T01 




DIGIT? 


— d i git-<olnter 


I pi pig 






= temnonary Areri ster store 






TEliPYl 


-tempore ry '/register store 


; Pfg -'4 






= temporary Xregister store 


; r 'V^ 




TEKP3R 


=temnorary er^or store 


• n 0 1 0 . 


. .17 


DISPB1 


-d i s 0 la ynu :" f e r 


. r-ui?0. 


. .?D 


OLDSEg 


=0.1. d card secuerce 




• • P 




=new card sequence 


; 


..49 


SUIT 




;M4A 




LAST 




; 0B41 




PCS* 
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; 004c 



0200 D8 




START 


0201 20 ?4 


02 




02 04 EA 






0205 A0 00 






0207 A 2 0D 






0209 8 A 




SET 


02 0A 95 20 






020C 94 fl£ 






W 2 0 is C A 






02 0P ©I 78 






0211 SS 




■XT 


0212 4C 78 


02 


A. 


0215 95 2S 




B 


0217 94 3C 






^219 84 12 


• 




021 B £f C5 


02 




02 11 SH 0B 






0 22 0 D0 PP 






0222 1,5 21 






r ''224 85 4 A 






w 22b A0 ' ) 






0228 B9 2 0 


00 


mm 


022"B 20 6e 






022E 86 4B 






0230 A 5 4 A 






0232 20 6i; 


02 




0235 8A 






0236 38 






0237 E5 4B 






R 239 30 02 






02 3B 69 0D 






02 3D 48 




OK 


023S 18 






023? A 6 4 A 






3241 75 3C 






0243 95 30 






0245 Bi 20 






0247 66 4A 
0249 68 






024A 75 30 






0240 95 3C 






024E 88 






024? P$ 1)7 






0251 A 2 01 






0253 A.9 00 






0255 B4 2E 




FIND 


0257 94 20 






0259 D5 3c 






025B 10 04 






025D 86 4C 






02 5F B5 3C 







J 

OLD 
JSR 



LDY 
LDX 
TXA 
ST A 
STY 
BEX 
BNE 

nx 

.IMP 
STA 

STY 
STY 
JSR 
CPX 
IWE 
LBA 
STA 
LDY 
LBA 
JSR 
STX 
LBA 
JSR 
TXA 
SEC 
S3C 
BCS 
ABO 
PHA 
GLO 
LBX 
ABC 
STA 
LBX 
STX 
PLA 
ABC 
STA 
BEY 
BNE 
LBX 
LBA 
LBY 
STY 
CMP 
BPL 
STX 
LBA 



impl 
IN ITER 
impl 
iTnm 
imm 
impl 
Z-p,X 
Z-n,X 
impl 
SET 
impl 
KIMMOD 
25~p*X 
Z- 0 , X 

Z-p 

KEYTHX 
irnr'i 
GET 
Z-p 

Z~P 

imn 1 
abs , Y 
SCAN 
Z- p 
Z-p 
SCAN 
impl 
impl 
Z-p 
OK 
imm 
impl 
impl 
Z-p 
Z-p»X 
Z-n,X 
Z-P,Y 
Z-p 
imol 
Z-p,X 

z-p,x 



LOOP 
imm 
imm 
Z-p,X 
Z-p,X 

Z-P,X 

NOTGET 
Z-p 
Z-p,X 



MAX 

binary mode 

initialize error procedure 
(sorry) 

first run; assume cards are in order 
A 2 3 ... 1 0 "R V H 

clear dis olaybuf f er 



start at 1 

to KIM raodif icatior, 

get card 

clear sum 

clear result 

key-to-segmentcode and in dis olay- 
buf fer; all done? 



do next card 
save position 



make in range 0 ... 1 2 



add to sum 



repeat for other neighbour 



look for max 

transfer new order to old 



greatest so far 
update with value 
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11261 CA 
0262 D0 F1 
0264 A5 4C 
0266 A0 04 
0268 20 E5 02 
026B 40 11 02 

026E A2 m 

0270 D5 2E 
0272 F0 03 

0274 CA 

0275 D0 F9 

0277 60 

0278 86 04 
027A 20 00 03 
027D C9 13 
027F F0 25 
0281 G9 0P 
0283 F0 03 
0285 C9 0E 
0287 F0 24 
0289 10 0S 
0283 A 6 04 
028D 4G 15 02 



0290 
0292 

0294 
0297 
0299 
02 9 A 
029B 
029D 
029F 
0 2 A 2 



02A6 
02A9 
02AB 



A0 0 0 
A2 10 

B9 50 03 

95 0 0 
E8 
C8 

C0 06 

D0 F5 

20 00 03 

C9 13 
D0 F9 
20 D7 02 
A2 00 
F0 BE 



02AD A5 02 
02AF C9 FB 
02B1 F0 DD 
02B3 85 05 
02B5 20 C5 02 
02B8 85 10 
02BA C6 04 
02BC A9 FB 
02BE 85 02 
02C0 A6 04 
02C2 4C 12 02 



NOTGET 


BEX imnl 




BNE FIND 




LDA Z-p 




LDY imm 




TOD dttiottt m 

JbK RESULT 


RESTAR 


JMP GET 


SCAN 


> 

LDX imm 


SCAN1 


CMP Z-p,X 




BEQ RETN 




BEX impi 




BNE SCAN1 


RETN 


RTS abs 


KOTOS 


; 

STX Z-p 




JSR S HO KEY 




irviy imm 




BEQ NSXGAM 




CMP imm 




BEQ POUT, 




CMP imm 




BEQ ERROR 




BPL FOUL 


ERROO" 


LDX Z-p 




JMP B 
■ 


FOUL 


> 

LDY imm 




LDX imm 


LOOPF 


LDA abs,Y 




STA Z-p,X 




INX imnl 




INY impl 




C~°Y imm 




BNE LOOPF 



TO SHOW 



NEXGAM 



ERROR 



JSR 
CMP 
BNE 
JSR 
LDX 
BEQ 



SHOKEY 
imm 

TO SHOW 
DIBUCL 
imm 

RESTAR 



LDA Z-p 
CMP imm 
BEQ FOUL 
STA Z-p 
JSR KEYTJIX 
STA Z-p 
DEC Z-p 
LDA imm 
STA Z-p 
LDX Z-p 
JMP A 



do for all 13 cards 

best card 

display in digit 5 

repeat with new order 

what position in array? 



position is X 
save X 

display displaybuf f er and scan keyboard 
key "GO"? 

new game, preserve old sequence 

key "0"? 

illegal 

key "E" (error) 

not 1 . . . D = illegal 
restore X 

return in main program 

put message in displaybuf fer 



clear displaybuf fer 
clear X 

always branch to restart 
get old key 

legal use of "E"rror-key? 

old key becomes new key again 
get segrnentcode for it' 
change displaybuf fer 
backstep X 

prevent another "E"-press 
restore X 

return in main program 



02C5 84 03 KEYTHX STY Z-p change key to segrnentcode; save Y 
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02C7 


A8 








TAY 


impl 


02C8 


A5 


05 






LDA 


Z-p 


02CA 


85 


02 






STA 


Z-p 


02CC 


84 


05 






STY 


Z-p 


02CE 


B9 


55 


03 




LDA 


abs , Y 


02D1 


A 4 


03 






LDY 


Z-p 


02D3 


99 


1 0 


00 




STA 


abs ,Y 


02D6 


60 








RTS 


abs 


02D7 


20 


F4 


02 


DIBUCL 


• 

JSR 


INITER 


02DA 


98 








TYA 


impl 


02DB 


99 


1 0 


00 


LOCPD 


STA 


abs , Y 


02DE 


C8 








IKY 


impl 


02DF 


C0 


08 






GPY 


imm 


02E1 


D0 


F8 






BNE 


LOOPD 


02E3 


A8 








TAY 


impl 


02E4 


60 








RTS 


abs 


02E5 


84 


03 




RESULT 


; 

STY 


Z-p 


02E7 


48 








PHA 


impl 


02E8 


A0 


00 






LDY 


imm 


02EA 


20 


D7 


02 




JSR 


DIBUCL 


021D 


68 








PLA 


impl 


02EE 


A4 


03 






LDY 


Z-p 


02F0 


2 0 


G5 


02 




JSR 


KEYTHX 


02F3 


60 








RTS 

• 


abs 


02P4 


A9 


FB 




I"ITER 


LDA 


imm 


02F6 


85 


05 






STA 


Z-p 


02F8 


85 


02 






STA 


Z-p 


02FA 


60 








RTS 


abs 


02FB 










; xxxxxxxxxx 


0300 


A2 


00 




S HO KEY 


LDX 


imm 




A9 


07 






LDA 


imm 


0304 


85 


01 






STA 


Z-p 


0306 


E6 


01 




DIGCON 


INC 


Z-p 


0308 


E6 


01 






INC 


Z-p 


030A 


A5 


01 






LDA 


Z-p 


0 30C 


G9 


1 5 






CMP 


imm 


0 3 0E 


F0 


1C 






BEO. 


DIGOPF 


031 0 


A 9 


7F 




LITEUP 


LDA 


imm 


0312 


8D 


41 


17 




STA 


abs 


0315 


A5 


01 






LDA 


Z-p 


0317 


8D 


42 


17 




STA 


abs 


031A 


E8 








IPX 


impl 


031B 


B5 


0F 






LDA 


Z-p,X 


031D 


8D 


40 


17 




STA 


abs 


0320 


A0 


FF 






LDY 


imm 


0322 


88 






WAIT 


DEY 


impl 


0323 


D0 


FD 






BPE 


WAIT 


0325 


A9 


00 






LDA 


imm 


0327 


8D 


40 


17 




STA 


abs 


032A 


F0 


DA 






BEQ 


DIGCON 


032C 


A9 


00 




DIGOPF 


LDA 


imm 



put key in Y 
make key old key 

store new key 

change to segmentcode 

restore Y 

put segmentcode in displaybuf f er 



this routine clears displaybuf fer 

make A = 00 

clear displaybuf fer 



zero Y 



this routine clears displaybuf fer and 

puts in result on digit 5 
zero Y 

clear displaybuf fer 
restore A 
restore Y 

get segmentcode for key, to display- 
buffer 

initializes errorprocedure 
FB = illegal 



this routine shows displaybuf fer on 
display and scans keyboard; after key 
has been released it returns with new 
key in A and 00 in Y 




032E 8D 42 17 
0331 20 40 1F 
0334 20 6a if 
0337 85 00 

0339 C9 15 

033B F0 C3 

033B 20 6A 1F 

0340 C5 00 
0342 F0 F9 



A5 



0 0 
00 



0344 

0346 A0 
0348 60 
0349 

0350 F1 BP BE 
0353 B8 00 00 
0356 86 DB CF 
0359 E6 ED FD 
035C 87 FF EF 
035F F7 FC B9 
0362 DE 
0363 



STA abs 
JSR KEYIN 
JSR GET KEY 
STA Z-p 
CMP imm 
BEQ SHOKEY 
INKEYC JSR GET KEY 
CMP Z-T3 
BEO, INKEYC 
LDA Z-p 
LDY imm 
RTS abs 

;xxxxxxxxxxxxxx not used 
TABLES 



KIM-monitor 
KIM-monitor 



KIM-monitor; wait until! key is re- 
leased again 

was new key- 
zero Y 



key conversion 



; END OF PROGRAM. 



Literatuur: Practical Electronics, February 1980; IPC Magazines, England. 

Modern Magic Manual by Jean Hugard; Faber & Faber, England. 
KIM-kenner no. 8; KIM Gebruikers Club Nederland. 




flGEtt 



13 - 22 OKTOEER 1980 EFFICIENCY BEURS, RAI, AMSTERDAM. 

21 - 26 OKTOBER 1980 ORGATECHNIK. INTERNATIONALE 
TENTOOMSTELL I NG VAN 0. A. GEGEVENSVERWERKENDE MACHINES. 
I NL. . NEDERLANDS-DU I TSE KAMER VAN KGGPHANDEL, NASSAU- 
RLE IN 30, 2508 GM DEN HA AG. 

27 OKTOBER 1980 HCC AFDElING DELFT E-CAFE TH DELFT, 
MEKELWEG 4 DELFT. , AANVANG 20. 00 UUR. 

3 - 7 NOVEMBER 1980 FIAREX, RAI TE AMSTERDAM. 

15 NOVEMBER 1980 BUEENKOHST KIM GEBRUIKERS CLUB 
NEDERLAND. PLAATS. WORDT NADER BEKEND GEMAAKT. 

19 - 24 NOVEMBER 1980 MICRO EXPO TE PAR US. 

24 NOVEMBER 1930 HCC AFDELING DELFT E-CAFE TH DELFT. 
MEKELwEG 4 DELFT, AANVANG 20. 00 UUR. 

29 NOVEMBER 1980 HCC MICROCOMPUTER DAG VAN 10 TOT 17 
UUR IN "T TURFSCHIP, CHA3SEVELD TE BREDA. IN GROTE 
LUMEN IS HET PROGRAMMA ALS VOLGT. EXPOS IT IE VAN 
LEVERANCIERS, AHA TEURM ARKT > EXPOSITIE VAN DE HCC, 
LEI I NGEN, F I LMSi GEBRU I KERSGROEF EN. K I NDEROPVANG 
IN DE CHASSE ZAAL. MEN VERWACHT ONGEVEER 4000 
BEZGEKERS. 

I NL. . RGB ERONCKERS/ PROF R BO SLA AN 18, 3571 CR 
UTRECHT. 

22 DECEMBER 1980 HCC AFDElING DELFT E-CAFE TH DELFT, 
MEKELWEG 4 DELFT. AANVANG 20. 00 UUR. 



Aangeboden : Reedrelais spoelspanning 5 V 10 mA in IC vorm 



14 pens met ingebouwde blusdiode 
kontakt 10 VA max 100 Vdc Imax 0,5A ac-dc 
Van /5,50 voor j 3,50 excl verzandkosten 

D.J. Dral 1'el 02230 - 22346 
Jsselstraat 15 1784 VN Den rielder 






